Excercie 3.63

問題に書かれているものだと stream-map に渡す (sqrt-stream x) を都度計算する必要があるが、テキスト本文中に書かれている stream-map に guesses を渡す方法はローカル変数 guesses を参照し続けるだけでいいから、都度計算する必要もないし、メモリ効率もいい。

であってるかな。

Excercise 3.64

Exercise 3.64.

(define (stream-limit s t)
  (let ((prev (stream-car s))
        (now  (stream-cadr s)))
    (if (< (abs (- prev now)) t)
      now
      (stream-limit (stream-cdr s) t))))