(Kor) Add Digits

2026-07-02 12:08:34 -06:00 · 2020-04-03 19:36:22 +02:00
parent 844e606429
commit 90af822547
2 changed files with 46 additions and 2 deletions
@@ -96,7 +96,11 @@ concrete NounKor of Noun = CatKor ** open ResKor, Prelude in {
  NumCard card = card ;

  -- : Digits  -> Card ;
-  --  NumDigits dig =
+  NumDigits dig = baseNum ** {
+    s = \\_,_ => dig.s ! NCard ;
+    n = dig.n ;
+    numtype = IsDig
+    } ;

  -- : Numeral -> Card ;
  NumNumeral num = num ;