用Lisp语言实现Fibonacci数列

我们知道Fibonacci数列的第n个数为F(n) = F(n-1) + F(n-2), F(0) = 0, F(1) = 1。这里，我们数组的下标从0开始。

用Lisp实现求F(n)，它有两种求法：递归和非递归。如果是递归的话，当n=50以上就非常慢了。

(defun fib (n)         ;calculate the Fibonacci list at pos n
  (do ((i 0 (1+ i))
       (cur 0 next)
       (next 1 (+ cur next))) 
      ((= n i) cur)))

(defun fib-rec (n)     ;Fibonacci list at pos n with recursion form
  (if (= 0 n) 0 (if (= 1 n) 1 (+ (fib-rec (- n 2)) (fib-rec (- n 1))))))

C-c C-c编译后运行结果如下：