Chat (Lingr.com)
Informaiton
Daily
Column
- MySQL日本語の旅(5/1)
- アクセス向上秘伝(5/9)
- 一風変ったHaskellλ門(6/13)
- SICP Answer Book (5/31) 問題3.26追加
Zope Solution
Extra
アーカイブ
OSS案内所
Site Info
関連リンク
##(link2sicp "book-Z-H-11.html#%_thm_1.11" "Exercise 1.11")
解答例
再帰的プロセス版
(define (f-rec n)
(if (< n 3)
n
(+ (f-rec (- n 1)) (* 2 (f-rec (- n 2))) (* 3 (f-rec (- n 3))))))
反復的プロセス版
(define (f-iter n)
(define (iter a b c count)
(cond ((= count 0) c)
((= count 1) b)
(else (iter (+ a (* 2 b) (* 3 c)) a b (- count 1)))))
(iter 2 1 0 n))
コード
##(sicp-answer-code "ex-1.11.scm")
