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

mirror of https://github.com/acmeism/RosettaCodeData.git
(defun factorial (n)
    (reduce #'* (loop for i from 1 to n collect i)))
	`(defun factorial (n)`
	`(reduce #'* (loop for i from 1 to n collect i)))`