ikarus/lib/fact.ss

7 lines
104 B
Scheme
Raw Normal View History

2006-11-23 19:48:14 -05:00
(define (fact n ac)
(if (zero? n)
ac
(fact (- n 1) (* n ac))))
(begin (fact 10000 1) #f)