; ====================================================================== ; ; Structure and Interpretation of Computer Programs ; (trial answer to excercises) ; ; 计算机程序的构造和解释(习题试解) ; ; created: code17 02/28/05 ; modified: ; (保持内容完整不变前提下，可以任意转载) ; ====================================================================== ;; SICP No.1.17 ;; 辅助函数 (define (double x) (+ x x)) (define (halve x) (/ x 2)) (define (even? x) (= (remainder x 2) 0)) ;; 递归版本 (define (fast-mult-r a b) (cond ((= b 0) 0) ((even? b) (double (fast-mult-r a (halve b)))) (else (+ a (fast-mult-r a (- b 1)))))) ;; 迭代版本 (define (fast-mult-i a b) (expt-iter a b 0)) (define (expt-iter a b s) (cond ((= b 0) s) ((even? b) (expt-iter (double a) (halve b) s)) (else (expt-iter (double a) (halve (- b 1)) (+ s a))))) ;; Test-it: ;; Welcome to MzScheme version 209, Copyright (c) 2004 PLT Scheme, Inc. ;; > (fast-mult-r 13 19) ;; 247 ;; > (fast-mult-i 19 13) ;; 247 ;; > (fast-mult-r 5 58) ;; 290 ;; > (fast-mult-i 58 5) ;; 290 ;; >
本文地址：http://com.8s8s.com/it/it23167.htm