Lisp：斐波那契数列

#lang rocket
(define (fib-one n)
    (cond ((= n 0) 0)
          ((= n 1) 1)
          (else (+ fib-one(- n 1)  fib-one(- n 2)))))

(define (fib-two n)
    (fibadd 1 0 n))
(define (fibadd a b n)
    (if (= n 0)
        0
        (fibadd (+ a b) a (- count 1))))

用第一种方法来求解斐波那契数列显然有些冗余，这是树形递归必然所致，但并不是一无是处，树形递归往往比较直观。

第二种方法不会像第一种一样有多余的计算，而是在上一次的基础上相加，把a->a+b,b->a