msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

generalize the nqueens function in NQueens.gf

Browse Source
This commit is contained in:
krasimir
2010-10-13 17:53:44 +00:00
parent 95713b9489
commit 82214f0be5
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/nqueens/NQueens.gf
View File

@@ -6,7 +6,7 @@ cat [Nat] ;
cat Vec (s,l : Nat) [Nat] ; cat Vec (s,l : Nat) [Nat] ;
cat Sat Nat Nat [Nat] ; cat Sat Nat Nat [Nat] ;
data queens : Matrix (succ (succ (succ (succ (succ (succ (succ (succ zero)))))))) -> S ; data nqueens : (n : Nat) -> Matrix n -> S ;
data nilV : ({s} : Nat) -> ({c} : [Nat]) -> Vec s zero c ; data nilV : ({s} : Nat) -> ({c} : [Nat]) -> Vec s zero c ;
consV : ({l},j,k : Nat) -> consV : ({l},j,k : Nat) ->

2
examples/nqueens/NQueensAscii.gf
View File

@@ -3,7 +3,7 @@ concrete NQueensAscii of NQueens = NatAscii ** {
lincat S, Matrix, Vec = Str ; lincat S, Matrix, Vec = Str ;
ListNat, Sat = {} ; ListNat, Sat = {} ;
lin queens m = m ; lin nqueens _ m = m ;
lin nilV _ _ = "" ; lin nilV _ _ = "" ;
consV _ j k _ _ v = j ++ "X" ++ k ++ ";" ++ v ; consV _ j k _ _ v = j ++ "X" ++ k ++ ";" ++ v ;