conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
ikarus/src/fact.ss

7 lines
104 B
Scheme
Raw Blame History

(define (fact n ac)
(if (zero? n)
ac
(fact (- n 1) (* n ac))))
(begin (fact 10000 1) #f)
Reference in New Issue View Git Blame Copy Permalink