update NQueens to use: 1) lists i.e. [Nat]; 2) implicit arguments

This commit is contained in:
krasimir
2010-10-11 17:17:04 +00:00
parent f305587a62
commit 3ac637ddcb
2 changed files with 12 additions and 15 deletions

View File

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