forked from GitHub/gf-core
11 lines
179 B
Plaintext
11 lines
179 B
Plaintext
concrete BinaryDigits of Binary = {
|
|
|
|
flags startcat=Bin ;
|
|
|
|
lincat Bin = { s : Str } ;
|
|
|
|
lin End = { s = "" } ;
|
|
lin Zero b = { s = "0" ++ b.s } ;
|
|
lin One b = { s = "1" ++ b.s } ;
|
|
|
|
} |