home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Programming / Programming Languages / XLisp 2.1e3 ƒ / lisp / fib.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1993-10-15  |  192 b   |  10 lines  |  [TEXT/ttxt]
  1. (defun fib (x)
  2.        (if (< x 2) x
  3.            (+ (fib (- x 1)) (fib (- x 2)))))
  4.  
  5. (defun fibi (n)
  6.     (do    ((i 1 (1+ i))
  7.          (fib-i-1 0 fib-i)
  8.          (fib-i   1 (+ fib-i fib-i-1)))
  9.         ((= i n) fib-i)))
  10.