factorial

factorial.lisp

(defun factorial (n)
  (defun i_factorial (n acc)
    (if (= 0 n)
      acc
      (i_factorial (- n 1) (* acc n))))
    (i_factorial n 1))

(defun print-factorial (n)
  (format T "~D~%" (factorial n)))

(mapcar 'print-factorial '(1 12 123 1234 12345))