Serendip

Web Studio

問題3.64

(define (stream-limit st tolerance)
   (let ((s1 (stream-car st))
         (s2 (stream-car (stream-cdr st))))
       (if (< (abs (- s1 s2)) tolerance)
           s2
           (stream-limit (stream-cdr st) tolerance))))

(define (sqrt x tolerance)
  (stream-limit (sqrt-stream x) tolerance))

(sqrt 2 0.01)
gosh> 1.4142156862745097

計算機プログラムの構造と解釈

posted with amazlet at 08.11.07

ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542

Amazon.co.jp で詳細を見る