Write a procedure
that takes as arguments a stream and a number (the tolerance). It should examine the stream until it finds two successive elements that differ in absolute value by less than the tolerance, and return the second of the two elements. Using this, we could compute square roots up to a given tolerance by
(define (sqrt x tolerance) (stream-limit (sqrt-stream x) tolerance))
There are no comments yet.
You must log in to post a comment.Login
(define (stream-car stream) (car stream)) (define (stream-cdr stream) (force (cdr stream))) (define (stream-map proc . list-of-stream) (if (null? (car list-of-stream)) '() (cons-stream (apply proc (map (lambda (s) (stream-car s)) list-of-stream)) (apply stream-map (cons proc (map (lambda (s) (stream-cdr s)) list-of-stream)))))) (define (average x y) (/ (+ x y) 2)) (define (sqrt-improve guess x) (average guess (/ x guess))) (define (close-enough? x y tolerance) (< (abs (- x y)) tolerance)) (define (sqrt-stream x) (define guesses (cons-stream 1.0 (stream-map (lambda (guess) (sqrt-improve guess x)) guesses))) guesses) (define (sqrt x tolerance) (stream-limit (sqrt-stream x) tolerance)) (check-equal? (floor (* 1000 (sqrt 4 0.001))) 2000.0) (check-equal? (floor (* 1000 (sqrt 100 0.0001))) 10000.0) (check-equal? (floor (* 1000 (sqrt 0.09 0.0001))) 300.0)