Correction of errors in ResCgg.gf and Numeral.gf regarding generalization of n2-n9

2026-07-02 20:18:33 -06:00 · 2019-05-06 02:11:21 +02:00
parent 5af7fd2fa9
commit 7d903526f5
2 changed files with 3 additions and 3 deletions
@@ -64,7 +64,7 @@ lin pot3 n = let

 lin pot3plus n m = let 
                      thousand = case  <n.n> of{
-                                          <Sg> => "akairira";
+                                          <Sg> => "akasirira";
                                          _    => "obusirira" ++ n.s
                          };
                    in { s = thousand  ++ m.s; g = ZERO_ZERO; n = n.n} ;