home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / NETFrameworkSDK.exe / comsdk.cab / samples1.exe / CLisp / fibo.lisp < prev    next >
Encoding:
Text File  |  2000-06-23  |  283 b   |  23 lines
  1. (defun Fib (N)
  2.   (if (<= N 0) 
  3.       0 
  4.     (if (= N 1) 
  5.     1 
  6.       (+ (Fib (- N 1)) (Fib (- N 2))
  7.      )
  8.       )
  9.     )
  10.   )
  11.  
  12. (defun Fibo (N) (do ((count 0 (+ count 1))
  13.          (Fibo (car (Fib 0)) (cons Fibo (car (Fib count)))))
  14.         ((> count N)
  15.          Fibo)))
  16.  
  17. (Fibo 25)
  18.  
  19.  
  20.  
  21.  
  22.  
  23.