GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

test with numerals

Browse Source
This commit is contained in:
aarne
2004-09-17 14:02:30 +00:00
parent e2f00638e2
commit ee3e5b0ae5
5 changed files with 89 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/resource-0.6/english/NumeralsResEng.gf Normal file
View File

@@ -0,0 +1,12 @@
resource NumeralsResEng = {
param DForm = unit | teen | ten ;
oper mkNum : Str -> Str -> Str -> {s : DForm => Str} =
\two -> \twelve -> \twenty ->
{s = table {unit => two ; teen => twelve ; ten => twenty}} ;
oper regNum : Str -> {s : DForm => Str} =
\six -> mkNum six (six + "teen") (six + "ty") ;
oper ss : Str -> {s : Str} = \s -> {s = s} ;
}