sicp习题试解 (1.18)

; ======================================================================

;

; Structure and Interpretation of Computer Programs

; (trial answer to excercises)

;

; 计算机程序的构造和解释(习题试解)

;

; created: code17 02/28/05

; modified:

; (保持内容完整不变前提下，可以任意转载)

; ======================================================================

;; SICP No.1.18

;; 见No.1.17的解答中的迭代版本

;; 一个稍微优化一些的版本可以定义为

(define (fast-mult-i a b)

(if (> a b)

(expt-iter a b 0)

(expt-iter b a 0)))

;; 另外本节所有的例子中的参数a,b..均为非负整数，没有这个前提，

;; 很多程序都是有问题的，包括书上自己的例子。但在课文内容中没有特别声明这一点。