sumrec.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.bth

blob: 0d493e0eb16dbc8e634ee393155ddbffecb548b4 (plain)

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