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.46" "Exercise 1.46")
解答例
(define (iterative-improve test improve)
(lambda (guess)
(if (test guess)
guess
((iterative-improve test improve) (improve guess)))))
(define (sqrt x)
(define (test guess)
(< (abs (- (square guess) x)) torelance))
((iterative-improve test (average-damp (lambda (y) (/ x y)))) 1.0))
(define (fixed-point f first-guess)
(define (close-enough? guess)
(< (abs (- guess (f guess))) tolerance))
((iterative-improve close-enough? f) first-guess))
(2006/02/14): fixed-point の定義を修正しました. Thanks > Takumi Iino さん
--nobsun
コード
##(sicp-answer-code "ex-1.46.scm")
