home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / Gambit LISP / fact.scm next >
Encoding:
Text File  |  1991-01-28  |  56 b   |  3 lines  |  [TEXT/gamI]
  1. (define (fact n)
  2.   (if (< n 2) 1 (* n (fact (- n 1)))))
  3.