language: Common Lisp (clisp) (clisp 2.47)
date: 121 days 4 hours ago
link:
visibility: public 
1
2
3
4
5
6

(defun fac (n)
  (labels ((%fac (n acc)
              (if (<= n 1) acc (%fac (1- n) (* n acc)))))
    (%fac n 1)))
 
(print (fac (parse-integer (read-line))))