; ======================================================================
;
; 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
;; >
