home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / xlisp16.lzh / XLISP1.6 / FACT.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1991-11-01  |  76 b   |  7 lines
  1. (defun fact (n)
  2.        (if (< n 2)
  3.            1
  4.        (* n (fact (1- n)))))
  5.  
  6.  
  7.