【SICP练习】11 练习1.17



练习1.17

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

(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