4 lines
71 B
Common Lisp
4 lines
71 B
Common Lisp
|
(defun fact (x)
|
||
|
|
(cond ((> 2 x) 1)
|
||
|
|
(t (* x (fact (- x 1))))))
|