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: 0bbf2b653d5b2be4b7ce84699773e82c3b44bd42 (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))