5 lines
92 B
Common Lisp
5 lines
92 B
Common Lisp
(set! fact
|
|
(lambda (n)
|
|
(cond ((= n 1) 1)
|
|
(true (* n (fact (- n 1)))))))
|