SICP练习题1.11

网上解题集（http://sicp.readthedocs.io/en/latest/chp1/11.html）给出的迭代版本是

(define (f n)    (f-iter 2 1 0 0 n))(define (f-iter a b c i n)    (if (= i n)        c        (f-iter (+ a (* 2 b) (* 3 c))   ; new a                a                       ; new b                b                       ; new c                (+ i 1)                n)))

有两个问题：

1，i跟n两个参数可以省略一个

2，不支持负数

我给出的迭代版本是

(define (f n)    f_iter(2, 1, 0, n))(define (f_iter a, b, c, count)     (if (< count 3)         (- (+ count a) 2)                    (f_iter (+ a (* 2 b) (* 3 c))                    a                    b                    (- count 1))))

经测试可用