【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柯于旺 原创文章，未经许可严禁转载！欢迎访问我的博客：http://blog.csdn.net/nomasp