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