25 lines
563 B
Common Lisp
25 lines
563 B
Common Lisp
;; vi:ft=lisp:sw=2:ts=2
|
|
|
|
(defun factorial (x)
|
|
(if (= x 0)
|
|
1
|
|
(* (factorial (- x 1)) x)
|
|
)
|
|
)
|
|
|
|
(print 1 "\t" (factorial 1))
|
|
(print 2 "\t" (factorial 2))
|
|
(print 3 "\t" (factorial 3))
|
|
(print 4 "\t" (factorial 4))
|
|
(print 5 "\t" (factorial 5))
|
|
(print 6 "\t" (factorial 6))
|
|
(print 7 "\t" (factorial 7))
|
|
(print 8 "\t" (factorial 8))
|
|
(print 9 "\t" (factorial 9))
|
|
(print 10 "\t" (factorial 10))
|
|
(print 11 "\t" (factorial 11))
|
|
(print 12 "\t" (factorial 12))
|
|
(print 13 "\t" (factorial 13))
|
|
(print 14 "\t" (factorial 14))
|
|
(print 15 "\t" (factorial 15))
|