home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / glisp / fib.gl < prev    next >
Encoding:
Text File  |  1993-10-23  |  119 b   |  7 lines
  1. ;trace 8
  2. "Fibonnacci recursif"
  3. (de fib (n)
  4.   (if (< n 2) 1 (+ (fib (- n 1)) (fib (- n 2)))))
  5. "(fib 23)"
  6. (fib 23)
  7.