1.11
递归计算过程
(define (f n)
(if (< n 3)
n
(+ (f (- n 1))
(* 2 (f (- n 2)))
(* 3 (f (- n 3))))))
迭代计算过程
(define (f n)
(f-iter n 0 1 2))
(define (f-iter n a b c)
(if (< n 3)
c
(f-iter (- n 1)
b
c
(+ (* 3 a)
(* 2 b)
c))))
1.12
帕斯卡三角形(递归计算)
(define (pas n i)
(cond ((= i 0) 0)
((= i 1) 1)
((= n 1) 0)
(else (+ (pas (- n 1) (- i 1))
(pas (- n 1) i)))))
(pas n i)表示第n行第i个数的值（n、i均从1开始）。