4 lines
59 B
Common Lisp
4 lines
59 B
Common Lisp
(defun fact (x)
|
|
(if (< x 2) 1
|
|
(* x (fact (- x 1)))))
|
(defun fact (x)
|
|
(if (< x 2) 1
|
|
(* x (fact (- x 1)))))
|