Danish ordinals

This commit is contained in:
aarne
2006-05-26 15:30:56 +00:00
parent 6a0fc4e053
commit 252e522666
5 changed files with 81 additions and 48 deletions

View File

@@ -141,11 +141,11 @@ oper
mkTal : (x1,_,_,_,x5 : Str) -> LinDigit =
\två, tolv, tjugo, andra, tolfte ->
\två, tolv, tjugo, andra, tyvende ->
{s = table {
ental => cardOrd två andra ;
ton => cardOrd tolv tolfte ;
tiotal => cardReg tjugo
ton => cardReg tolv ;
tiotal => cardOrd tjugo tyvende
}
} ;