6 lines
134 B
Common Lisp
6 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)))
|