【SICP练习】11 练习1.17

2015/09/08 21:48
阅读数 31


练习1.17

这道题中有2个需要我们自己先写出来的函数doublehalve,当然了,这都非常容易实现:

(define(double x)

       (+ x x))

(define(halve x)

       (/ x 2))

题目中要求我们设计一个类似于fast-expt的求乘积的过程,并且只用对数的步数。

(define(* x y)

       (cond ((= y 0) 0)

       ((even? y) (double (* x (halve y))))

       ((odd? y) (+ x (* x (- y 1))))))

我们继续来测试一下:

(*2 10)

;Value:20

(*3 60)

;Value: 180

版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部