对数步骤斐波那契数

最新推荐文章于 2024-11-26 18:20:36 发布

原创最新推荐文章于 2024-11-26 18:20:36 发布 · 304 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#Scheme

sicp学习专栏收录该内容

1 篇文章

订阅专栏

本文回顾了作者重新学习T变换等概念的过程，并通过手推导的方式得出了p到p'及q到q'变化的具体方程。文章还提供了一个递归函数实现斐波那契数列计算作为例子。

以前看这个的时候，被T变换啥的这些名字给搞晕了。
今天拿起笔好好的做了一下运算，直接得到了p->p'和q-q'的方程。
以前数学没学好。。。书到用时方恨少


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