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: 8c8804ab250da8dc6d18bde72960442a8058b5d4 (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 100))