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

add start category S in NQueens. This helps the EditorApp to find the start category

Browse Source
This commit is contained in:
krasimir
2010-10-13 13:53:29 +00:00
parent edf46e3a4d
commit 2ab3081c07
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
examples/nqueens/NQueens.gf
View File

@@ -1,10 +1,13 @@
abstract NQueens = Nat ** {
cat S ;
cat Matrix Nat ;
cat [Nat] ;
cat Vec (s,l : Nat) [Nat] ;
cat Sat Nat Nat [Nat] ;
data queens : Matrix (succ (succ (succ (succ (succ (succ (succ (succ zero)))))))) -> S ;
data nilV : ({s} : Nat) -> ({c} : [Nat]) -> Vec s zero c ;
consV : ({l},j,k : Nat) ->
let s = succ (plus j k)