home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / scheme / fact2 < prev    next >
Encoding:
Text File  |  1992-10-26  |  138 b   |  10 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define (factorial n)
  4.   (let fact ((i n) (a 1))
  5.     (if (zero? i)
  6.     a
  7.     (fact (- i 1) (* a i)))))
  8.  
  9. (print (factorial 10))
  10.