even simpler version of NQueens

This commit is contained in:
krasimir
2010-03-24 21:04:37 +00:00
parent ab3127b5dd
commit 69535e2b6b
4 changed files with 5 additions and 11 deletions

View File

@@ -4,7 +4,7 @@ lincat Matrix, Vec = Str ;
Constr, Sat = {} ;
lin nilV _ _ = "" ;
consV _ _ f _ l _ v = f ++ "X" ++ l ++ "\n" ++ v ;
consV _ j k _ _ v = j ++ "X" ++ k ++ "\n" ++ v ;
matrix _ v = v ;