8 lines
136 B
Text
8 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))))
|