我们知道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编译后运行结果如下: