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: e81eeb9ccc3531247ee906d10c953337e7db4d7e (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))