【SICP练习】12 练习1.18



练习1.8

和前两题一样,依旧是只能用对数步数。而且这个迭代过程要基于加、加倍和折半运算。这一个习题要用到前面的函数,因此最好的做法是,每次都将写好的代码保存起来。

(load“Test1.18.scm”)

这行代码可以用来加载代码。而保存可以用C-X,C-W

以下是该题的代码,这次我们写成块结构:

(define(* x y)

      (define (*-iter x y product)

             (cond ((= y 0) product)

                      ((even? y) (*-iter (double x)

                                                  (halve y)

                                                  product))

                      ((odd? y) (*-iter x

                                                 (- y 1)

                                                 (+ x product)))))

      (*-iter x y 0))

依旧还是来测试一番:

(*18 3)

;Value:54

(*0.123456789 987654321)

;Value:121932631.11263525

版权声明:本文为 NoMasp柯于旺 原创文章,如需转载请联系本人。

posted @ 2015-02-05 19:15  nomasp  阅读(108)  评论(0编辑  收藏  举报