5 lines
81 B
Text
5 lines
81 B
Text
|
(defun factorial
|
||
|
|
((0) 1)
|
||
|
|
((n) (when (> n 0))
|
||
|
|
(* n (factorial (- n 1)))))
|