; ====================================================================== ; ; Structure and Interpretation of Computer Programs ; (trial answer to excercises) ; ; 计算机程序的构造和解释(习题试解) ; ; created: code17 02/25/05 ; modified: ; (保持内容完整不变前提下，可以任意转载) ; ====================================================================== ;; SICP No.1.11 ;; recursive process (define (fr n) (if (< n 3) n (+ (fr (- n 1)) (* 2 (fr (- n 2))) (* 3 (fr (- n 3)))))) ;; iterative process (define (fi n) ;; local iterative procedure (define (f-iter x y z i) (if (= i n) x (f-iter (+ x (* y 2) (* z 3)) x y (+ i 1)))) ;; main procedure (if (< n 3) n (f-iter 2 1 0 2))) ;; Test-it: ;; > (fr 2) ;; 2 ;; > (fi 2) ;; 2 ;; > (fr 5) ;; 25 ;; > (fi 5) ;; 25 ;; > (fr 23) ;; 144191392 ;; > (fi 23) ;; 144191392 ;; >
本文地址：http://com.8s8s.com/it/it23202.htm