7 lines
136 B
Text
7 lines
136 B
Text
(defun factorial (n)
|
|
(factorial n 1))
|
|
|
|
(defun factorial
|
|
((0 acc) acc)
|
|
((n acc) (when (> n 0))
|
|
(factorial (- n 1) (* n acc))))
|