4 lines
76 B
Text
4 lines
76 B
Text
(defun factorial (n)
|
|
(if (= n 1)
|
|
1
|
|
(* n (factorial (1- n)))))
|