src/sicp/ex3_64.rkt

   1 #lang planet neil/sicp
   2
   3 ;; stream-of-numbers -> floating point number -> number
   4 (define (stream-limit s limit)
   5   (let ([num0 (stream-car s)]
   6         [num1 (stream-car (stream-cdr s))])
   7     (let ([diff (- num0 num1)])
   8       (if (< (abs diff) limit)
   9           num1
  10           (stream-limit (stream-cdr s) limit)))))