numeral spacing in some languages

This commit is contained in:
aarne
2010-05-26 21:29:27 +00:00
parent 6696b18a8b
commit 07a82d602a
3 changed files with 18 additions and 13 deletions

View File

@@ -44,7 +44,7 @@ lin
pot3 n = {s = \\g =>
multiple n.s n.n ++ cardOrd "tausend" "tausendte" ! g ; n = Pl} ; ----
pot3plus n m = {s = \\g =>
multiple n.s n.n ++ "tausend" ++ BIND ++ m.s ! g ; n = Pl} ;
multiple n.s n.n ++ "tausend" ++ m.s ! g ; n = Pl} ;
oper
multiple : (CardOrd => Str) -> Number -> Str = \d,n ->