6 lines
95 B
Text
6 lines
95 B
Text
(defun factorial (x)
|
|
(if (< x 0)
|
|
nil
|
|
(if (<= x 1)
|
|
1
|
|
(* x (factorial (- x 1))) ) ) )
|