Files
gf-core/examples/nqueens/NQueensAscii.gf

12 lines
203 B
Plaintext

concrete NQueensAscii of NQueens = NatAscii ** {
lincat Matrix, Vec = Str ;
ListNat, Sat = {} ;
lin nilV _ _ = "" ;
consV _ j k _ _ v = j ++ "X" ++ k ++ "\n" ++ v ;
matrix _ v = v ;
}