sumrec_local.bth « tests - badthing - the best scheme that i have, and that's bad enough for me

summary refs log tree commit diff

path: root/tests/sumrec_local.bth

blob: b40418b1fac47eda5e4852558856d72c95f7c39d (plain)

(defn (f' x acc)
	(if (< x 1)
		acc
		(f' (- x 1) (+ acc x))))
(set _global_f' f')
(defn (f x) (_global_f' x 0))
(say (f 10))
(say (f 1000))