diff options
| author | Daniel Cerqueira <dan.git@lispclub.com> | 2026-02-25 15:13:52 +0000 |
|---|---|---|
| committer | Daniel Cerqueira <dan.git@lispclub.com> | 2026-02-25 15:13:52 +0000 |
| commit | 95dcacea5a1eabfee54c3edbe11b844bf1e5a2ec (patch) | |
| tree | 27af3d2c21cb6db78d19624b9898628b117aa308 /examples/abacus/reading.lali | |
| parent | 542ea993cbfdf3e4eb5f234817a7fc7a631e8472 (diff) | |
replace ap function name to algo
Diffstat (limited to 'examples/abacus/reading.lali')
| -rwxr-xr-x | examples/abacus/reading.lali | 4 |
1 files changed, 2 insertions, 2 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) |