1 665c255d 2023-08-04 jrmu (define sqrt-iter (guess x)
2 665c255d 2023-08-04 jrmu (let ((improved-guess (improve guess x)))
3 665c255d 2023-08-04 jrmu (if (close-enough? guess improved-guess)
4 665c255d 2023-08-04 jrmu improved-guess
5 665c255d 2023-08-04 jrmu (sqrt-iter improved-guess x))))
6 665c255d 2023-08-04 jrmu (define (close-enough? guess x)
7 665c255d 2023-08-04 jrmu (let ((ratio (/ a b)))
8 665c255d 2023-08-04 jrmu (and (< ratio 1.001) (> ratio 0.0999))))
