(Hun) Add digits

This commit is contained in:
Inari Listenmaa
2020-04-17 13:29:13 +02:00
parent 5430d8b450
commit 738dd44ec8
2 changed files with 41 additions and 1 deletions
+4 -1
View File
@@ -87,7 +87,10 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude in {
} ;
-- : Digits -> Card ;
-- NumDigits dig =
NumDigits dig = dig ** {
s = \\place => dig.s ! NCard ;
numtype = IsNum ;
} ;
-- : Numeral -> Card ;
NumNumeral num = num ;