home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
RiscOS
/
APP
/
DEVS
/
LISP
/
CLISP.ZIP
/
CLisp
/
lsp
/
fib
< prev
next >
Wrap
Text File
|
1992-10-02
|
203b
|
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)))