Код Ревью
Сравни свои решения
#| BEGIN (Write your solution here) |#
(define (stream-limit stream tolerance)
(let ([streamcar (stream-car stream)]
[streamcdr (stream-car (stream-cdr stream))])
(let ([difference (abs (- streamcar streamcdr))])
(if (< difference tolerance)
streamcdr
(stream-limit (stream-cdr stream) tolerance)))))
#| END |#
#| BEGIN (Write your solution here) |#
(define (stream-limit stream tolerance)
(let ([streamcar (stream-car stream)]
[streamcdr (stream-car (stream-cdr stream))])
(let ([difference (abs (- streamcar streamcdr))])
(if (< difference tolerance)
streamcdr
(stream-limit (stream-cdr stream) tolerance)))))
#| END |#
#| BEGIN (Write your solution here) |#
(define (stream-limit stream tolerance)
(let ([streamcar (stream-car stream)]
[streamcdr (stream-car (stream-cdr stream))])
(let ([difference (abs (- streamcar streamcdr))])
(if (< difference tolerance)
streamcdr
(stream-limit (stream-cdr stream) tolerance)))))
#| END |#
#| BEGIN (Write your solution here) |#
(define (stream-limit stream tolerance)
(let ([streamcar (stream-car stream)]
[streamcdr (stream-car (stream-cdr stream))])
(let ([difference (abs (- streamcar streamcdr))])
(if (< difference tolerance)
streamcdr
(stream-limit (stream-cdr stream) tolerance)))))
#| END |#