lobo/wl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

proper lexical scoping now woo

Browse source
This commit is contained in:
Lobo 2026-01-14 12:10:29 -03:00
parent ce9489b5d2
commit 27df5f8ce0
13 changed files with 349 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

17
examples/tailcalls.scm Normal file
View file

@ -0,0 +1,17 @@
(def fib-iter (fn (n a b)
(if (= n 0)
a
(fib-iter (- n 1) b (+ a b)))))
(def fib (fn (n) (fib-iter n 0 1)))
(write "(fib 50) = ")
(println (fib 50))
(def sum
(fn (n acc)
(if (= n 0)
acc
(sum (- n 1) (+ n acc)))))
(write "(sum 1000000) = ")
(println (sum 1000000 0))