习题1.11 写了两个实现,不过lisp环境还么有搭起来,先记录下来,马上搭环境去。
b = b + 2c + 3d
c = b
d = c
(define (f n)(f-iter 3 2 1 n))
(define (f-iter b c d count)
(
cond(
(= count 1) 1
(= count 2) 2
(= count 3) 3
(else f-iter((+ b (* 2 c) (* 3 d)) b c (- count 1)))
)
))
(define (f n)(f-iter 2 1 0 n))
(define (f-iter b c d count)
(
if(= count 0) d
(f-iter((+ b (* 2 c) (* 3 d)) b c (- count 1)))
)
)