home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / glisp / fact1.gl next >
Encoding:
Text File  |  1993-10-23  |  166 b   |  8 lines
  1. "Factoriel iteratif"
  2. (de iter (n f)
  3.   (if (zerop n) f
  4.      (iter (- n 1) (* n f))))
  5. (de fact (n) (iter n 1))
  6. "(repeat 1000 (fact 13))"
  7. (repeat 1000 (fact 13))
  8.