mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
Also: - Add some step1 and step3 tests that were discovered during Basic development. - Move PR_MEMORY* to debug.in.bas - Simplify Makefile deps - Fix freeing in steps4-7 when error at deeper level i.e. (prn (abc)) - add SLICE function to support concat implementation.
24 lines
400 B
Plaintext
24 lines
400 B
Plaintext
;; Testing recursive tail-call function
|
|
|
|
(def! sum2 (fn* (n acc) (if (= n 0) acc (sum2 (- n 1) (+ n acc)))))
|
|
|
|
;; TODO: test let*, and do for TCO
|
|
|
|
(sum2 10 0)
|
|
;=>55
|
|
|
|
(def! res2 nil)
|
|
;=>nil
|
|
(def! res2 (sum2 10000 0))
|
|
res2
|
|
;=>50005000
|
|
|
|
|
|
;; Test mutually recursive tail-call functions
|
|
|
|
(def! foo (fn* (n) (if (= n 0) 0 (bar (- n 1)))))
|
|
(def! bar (fn* (n) (if (= n 0) 0 (foo (- n 1)))))
|
|
|
|
(foo 10000)
|
|
;=>0
|