SICP 1.17

用对数的计算步数求两个整数的乘积。

1. 使用加法的方式求出乘积。
2. 假定除了加法之外还有double运算，它能求出一个整数的两倍。
3. halve运算，讲一个（偶数）除于2 。
4. 只用对数的计算步数

描述：

(a * b) =

　　((a + a) * (b / 2)) b是偶数

　　(a + (a * (b - 1))  b是奇数

(define (fast-mul b n)
    (cond ((= n 1) b)
          ((even? n) (fast-mul (double b) (halve n)))
          (else (+ b (fast-mul b (- n 1))))
     ))
(define (double n)
    (* 2 n)
(define (halve n)
    (/ n 2))
(define (even? n)
    (= (remainder n 2) 0))

转载于:https://www.cnblogs.com/cuixs/archive/2011/02/22/1961827.html