SICP 1.17
用对数的计算步数求两个整数的乘积。
- 使用加法的方式求出乘积。
- 假定除了加法之外还有double运算,它能求出一个整数的两倍。
- halve运算,讲一个(偶数)除于2 。
- 只用对数的计算步数
描述:
(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))