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-12.html#%_thm_1.38" "Exercise 1.38")
解答例
(define (e-2 k)
(define (n i) 1.0)
(define (d i)
(if (= (remainder i 3) 2)
(* 2 (+ 1 (quotient i 3)))
1))
(cont-frac n d k))
(define (e k) (+ 2 (e-2 k)))
実行例
gosh> (e 7) 2.7181818181818183 gosh> (e 8) 2.718280321565886 gosh> (e 9) 2.7182817182817183 gosh> (e 10) 2.718282368249837
コード
##(sicp-answer-code "ex-1.38.scm")
