SICP 1.11 solution

recursion :

(define (f n)

  (cond ((< n 3) n)

        (else (+ (f (- n 1)) (* 2 (f (- n 2))) (* 3 (f (- n 3)))))))

 

iteratoin :

(define (f n)

(f-iter 0 1 2 n))

 

(define (f-iter a b c count)

  (cond ((= count 0) a)

      ((= count 1) b)

((= count 2) c)

(else (f-iter b c (+ c (* 2 b) (* 3 a)) (- count 1)))

        ))