Fib数的算法

最新推荐文章于 2023-05-29 05:06:32 发布

sunyong

最新推荐文章于 2023-05-29 05:06:32 发布

阅读量1k

点赞数 1

文章标签：算法

本文链接：https://blog.csdn.net/sunyong/article/details/5878119

版权

(define (fib-iter a b p q count)
(cond ((= count 0) b)
        ((even? count)
         (fib-iter a b
                   (+ (square p) (square q))
                   (+ (square q) (* 2 p q))
                   (/ count 2)))
        (else (fib-iter
               (+ (* b q) (* a q) (* a p))
               (+ (* b p) (* a q))
               p
               q
               (- count 1)))
        )
)


(define (fib n)
(fib-iter 1 0 0 1 n)
)