diff options
Diffstat (limited to 'examples/numerals/russian.gf')
| -rw-r--r-- | examples/numerals/russian.gf | 74 |
1 files changed, 37 insertions, 37 deletions
diff --git a/examples/numerals/russian.gf b/examples/numerals/russian.gf index 6e3a6b8e0..4b1584114 100644 --- a/examples/numerals/russian.gf +++ b/examples/numerals/russian.gf @@ -17,8 +17,8 @@ lincat Sub1000 = {s : Place => Gen => Str ; size : Size} ; lincat Sub1000000 = {s : Gen => Str} ; oper mille : Size => Str = table { - {nom} => "тысяча" ; - {sgg} => "тысячи" ; + nom => "тысяча" ; + sgg => "тысячи" ; _ => "тысяч"} ; oper gg : Str -> Gen => Str = \s -> table {_ => s} ; @@ -27,59 +27,59 @@ lin num x0 = {s = [] ++ x0.s ! masc ++ []} ; -- Russian environment lin n2 = - {s = table {{unit} => table {{fem} => "две" ; _ => "два"} ; - {teen} => gg "двенадцать" ; - {ten} => gg "двадцать" ; - {hund} => gg "двести"} ; + {s = table {unit => table {fem => "две" ; _ => "два"} ; + teen => gg "двенадцать" ; + ten => gg "двадцать" ; + hund => gg "двести"} ; size = sgg} ; lin n3 = - {s = table {{unit} => gg "три" ; - {teen} => gg "тринадцать" ; - {ten} => gg "тридцать" ; - {hund} => gg "триста"} ; + {s = table {unit => gg "три" ; + teen => gg "тринадцать" ; + ten => gg "тридцать" ; + hund => gg "триста"} ; size = sgg} ; lin n4 = - {s = table {{unit} => gg "четыре" ; - {teen} => gg "четырнадцать" ; - {ten} => gg "сорок" ; - {hund} => gg "четыреста"} ; + {s = table {unit => gg "четыре" ; + teen => gg "четырнадцать" ; + ten => gg "сорок" ; + hund => gg "четыреста"} ; size = sgg} ; lin n5 = - {s = table {{unit} => gg "пять" ; - {teen} => gg "пятнадцать" ; - {ten} => gg "пятьдесят" ; - {hund} => gg "пятьсот"} ; + {s = table {unit => gg "пять" ; + teen => gg "пятнадцать" ; + ten => gg "пятьдесят" ; + hund => gg "пятьсот"} ; size = plg} ; lin n6 = - {s = table {{unit} => gg "шесть" ; - {teen} => gg "шестнадцать" ; - {ten} => gg "шестьдесят" ; - {hund} => gg "шестьсот"} ; + {s = table {unit => gg "шесть" ; + teen => gg "шестнадцать" ; + ten => gg "шестьдесят" ; + hund => gg "шестьсот"} ; size = plg} ; lin n7 = - {s = table {{unit} => gg "семь" ; - {teen} => gg "семнадцать" ; - {ten} => gg "семьдесят" ; - {hund} => gg "семьсот"} ; + {s = table {unit => gg "семь" ; + teen => gg "семнадцать" ; + ten => gg "семьдесят" ; + hund => gg "семьсот"} ; size = plg} ; lin n8 = - {s = table {{unit} => gg "восемь" ; - {teen} => gg "восемнадцать" ; - {ten} => gg "восемьдесят" ; - {hund} => gg "восемьсот"} ; + {s = table {unit => gg "восемь" ; + teen => gg "восемнадцать" ; + ten => gg "восемьдесят" ; + hund => gg "восемьсот"} ; size = plg} ; lin n9 = - {s = table {{unit} => gg "девять" ; - {teen} => gg "девятнадцать" ; - {ten} => gg "девяносто" ; - {hund} => gg "девятьсот"} ; + {s = table {unit => gg "девять" ; + teen => gg "девятнадцать" ; + ten => gg "девяносто" ; + hund => gg "девятьсот"} ; size = plg} ; lin pot01 = - {s = table {{attr} => table {{hund} => gg "сто" ; _ => gg []} ; - _ => table {{hund} => gg "сто" ; - _ => table {{masc} => "один" ; {fem} => "одна" ; _ => "одно"}}} ; + {s = table {attr => table {hund => gg "сто" ; _ => gg []} ; + _ => table {hund => gg "сто" ; + _ => table {masc => "один" ; fem => "одна" ; _ => "одно"}}} ; size = nom} ; lin pot0 d = {s = table {_ => d.s} ; size = d.size} ; |