examples/nqueens/NQueensAscii.gf


1
2
3
4
5
6
7
8
9
10
11
12
13

concrete NQueensAscii of NQueens = NatAscii ** {

lincat S, Matrix, Vec = Str ;
       ListNat, Sat = {} ;

lin nqueens _ m = m ;

lin nilV _ _ = "" ;
    consV _ j k _ _ v = j ++ "X" ++ k ++ ";" ++ v ;

    matrix _ v = v ;

}