diff options
| author | krasimir <krasimir@chalmers.se> | 2010-10-13 13:53:29 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-10-13 13:53:29 +0000 |
| commit | 95713b9489f412c2aa2892c1465ad7e2c66c1e95 (patch) | |
| tree | 6fbb53c505e486fca8024cc5d3d992a11d4199bb /examples | |
| parent | 354838807fb633e241dc47dbd70b05ebf19d043e (diff) | |
add start category S in NQueens. This helps the EditorApp to find the start category
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/nqueens/NQueens.gf | 3 | ||||
| -rw-r--r-- | examples/nqueens/NQueensAscii.gf | 4 |
2 files changed, 6 insertions, 1 deletions
diff --git a/examples/nqueens/NQueens.gf b/examples/nqueens/NQueens.gf index bd236bf55..960bef6d1 100644 --- a/examples/nqueens/NQueens.gf +++ b/examples/nqueens/NQueens.gf @@ -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) diff --git a/examples/nqueens/NQueensAscii.gf b/examples/nqueens/NQueensAscii.gf index 261d28f7a..a5bb2ed76 100644 --- a/examples/nqueens/NQueensAscii.gf +++ b/examples/nqueens/NQueensAscii.gf @@ -1,8 +1,10 @@ concrete NQueensAscii of NQueens = NatAscii ** { -lincat Matrix, Vec = Str ; +lincat S, Matrix, Vec = Str ; ListNat, Sat = {} ; +lin queens m = m ; + lin nilV _ _ = "" ; consV _ j k _ _ v = j ++ "X" ++ k ++ ";" ++ v ; |