3 lines
84 B
Common Lisp
3 lines
84 B
Common Lisp
|
(defun factorial (n &optional (m 1))
|
||
|
|
(if (zerop n) m (factorial (1- n) (* m n))))
|