<< 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)))
(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)))