Simon Brooke
7b126ea979
There's clearly still a lot of things getting incremented but not decremented.
7 lines
100 B
Common Lisp
7 lines
100 B
Common Lisp
(set! fact
|
|
(lambda (n)
|
|
(cond ((= n 1) 1)
|
|
(t (* n (fact (- n 1)))))))
|
|
|
|
(fact 20)
|