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