3 lines
118 B
Common Lisp
3 lines
118 B
Common Lisp
(defun selfactorial (self, n) (* n (if (< n 3) 1 (f f (- n 1)))))
|
|
(defun factorial (n) (selfactorial selfactorial n))
|