diff options
Diffstat (limited to 'examples/abacus')
| -rwxr-xr-x | examples/abacus/reading.lali | 4 | ||||
| -rwxr-xr-x | examples/abacus/writing.lali | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/examples/abacus/reading.lali b/examples/abacus/reading.lali index d4e510e..6663bb3 100755 --- a/examples/abacus/reading.lali +++ b/examples/abacus/reading.lali @@ -1,5 +1,5 @@ ;; variables -(set 'max-columns +4) +(set 'max-columns +12) ;; functions (defun random-number (cases) @@ -51,7 +51,7 @@ (progs f (set 'n-rand (random-number (random max-columns))) - (map (lambda (num) (princ (number-to-earth-rod num)) (newline)) n-rand) + (map (lambda (num) (princ (number-to-air-rod num)) (newline)) n-rand) (read) (print (map number-to-symbol n-rand)) ;; (print n-rand) diff --git a/examples/abacus/writing.lali b/examples/abacus/writing.lali index 2ba300b..17fd7c4 100755 --- a/examples/abacus/writing.lali +++ b/examples/abacus/writing.lali @@ -1,5 +1,5 @@ ;; variables -(set 'max-columns +3) +(set 'max-columns +12) ;; functions (defun random-number (cases) @@ -55,7 +55,7 @@ ;; (print n-rand) (newline) (read) - (map (lambda (num) (princ (number-to-earth-rod num)) (newline)) n-rand) + (map (lambda (num) (princ (number-to-air-rod num)) (newline)) n-rand) (read) (newline) (read))) |