even simpler version of NQueens

This commit is contained in:
krasimir
2010-03-24 21:04:37 +00:00
parent 9a1d0e8d11
commit 887a552497
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 ;