sicp第一章的练习题1.11
体会递归与迭代
将表达式f(x) 当x>=3时 f(x) = f(x-1) + 2f(x-2) + 3f(x-3), 当x<3,f(x)=x 用递归和迭代表示
递归式
(define (compute n) (cond ((< n 0) 0) ((< n 3) n) (else (+ (compute (- n 1)) (* 2 (compute (- n 2))) (* 3 (compute (- n 3))) ) ) ) )
迭代式
(define (compute2 n) (compute-iter 2 1 0 n)) (define (compute-iter a b c count) (if (= count 0) c (compute-iter (+ a (* 2 b) (* 3 c)) a b (- count 1) ) ) )