home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
xl21hos2.zip
/
FIB.LSP
< prev
next >
Wrap
Text File
|
1995-12-27
|
213b
|
11 lines
(defun fib (x)
(if (< x 2)
x
(+ (fib (1- x)) (fib (- x 2)))))
(defun fibi (n)
(do ((i 1 (1+ i))
(fib-i-1 0 fib-i)
(fib-i 1 (+ fib-i fib-i-1)))
((= i n) fib-i)))