1 665c255d 2023-08-04 jrmu (define (sqrt x)
2 665c255d 2023-08-04 jrmu   (sqrt-iter 1.0 x))
3 665c255d 2023-08-04 jrmu (define (sqrt-iter guess x)
4 665c255d 2023-08-04 jrmu   (if (good-enough? guess x)
5 665c255d 2023-08-04 jrmu       guess
6 665c255d 2023-08-04 jrmu       (sqrt-iter (improve guess x) x)))