mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
Added binary numeral grammars.
This commit is contained in:
10
examples/numerals/Binary.gf
Normal file
10
examples/numerals/Binary.gf
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
abstract Binary = {
|
||||||
|
|
||||||
|
cat Bin;
|
||||||
|
|
||||||
|
fun End : Bin ;
|
||||||
|
fun Zero : Bin -> Bin ;
|
||||||
|
fun One : Bin -> Bin ;
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
11
examples/numerals/BinaryDigits.gf
Normal file
11
examples/numerals/BinaryDigits.gf
Normal file
@@ -0,0 +1,11 @@
|
|||||||
|
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 } ;
|
||||||
|
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user