5 lines
134 B
Common Lisp
5 lines
134 B
Common Lisp
(defun factorial (n)
|
|
"Calculates N!"
|
|
(loop for result = 1 then (* result i)
|
|
for i from 2 to n
|
|
finally (return result)))
|