mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
14 lines
225 B
Plaintext
14 lines
225 B
Plaintext
concrete NQueensAscii of NQueens = NatAscii ** {
|
|
|
|
lincat S, Matrix, Vec = Str ;
|
|
ListNat, Sat = {} ;
|
|
|
|
lin queens m = m ;
|
|
|
|
lin nilV _ _ = "" ;
|
|
consV _ j k _ _ v = j ++ "X" ++ k ++ ";" ++ v ;
|
|
|
|
matrix _ v = v ;
|
|
|
|
}
|