Files
gf-core/examples/nqueens/NatAscii.gf
2011-08-23 15:05:04 +00:00

13 lines
138 B
Plaintext

concrete NatAscii of Nat = {
lincat Nat = Str ;
lin zero = "" ;
succ n = "-" ++ n ;
lincat NE = {} ;
lin plus x y = x ++ y ;
}