RosettaCodeData/Task/Factorial/Common-Lisp/factorial-3.lisp

6 lines
134 B
Common Lisp
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(defun factorial (n)
2019-09-12 10:33:56 -07:00
"Calculates N!"
(loop for result = 1 then (* result i)
for i from 2 to n
finally (return result)))