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