sicp-ex-3.64



<< Previous exercise (3.63) | Index | Next exercise (3.65) >>


meteorgan



(define (stream-limit stream tolerance)
        (if (< (abs (- (stream-ref stream 1) (stream-ref stream 0))) tolerance)
                (stream-ref stream 1)
                (stream-limit (stream-cdr stream) tolerance)))