home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d01xx / d0181.lha / AMXLISP / lsp / FACT.LSP < prev    next >
Lisp/Scheme  |  1989-02-25  |  77b  |  4 lines
  1. (defun fact (n)
  2.        (cond ((= n 1) 1)
  3.          (t (* n (fact (- n 1))))))
  4.