(defun fac (number)
    (cond
        ((= number 1)
            number)
        (t
            (* number (fac (- number 1))))

Factorial.lisp (last edited 2011-08-03 11:00:38 by localhost)