Code Review
Compare your solutions
#| BEGIN (Write your solution here) |#
(define (cbrt-iter guess x)
(if (good-enough-cbrt? guess x)
guess
(cbrt-iter (improve-cbrt guess x) x)))
(define (improve-cbrt guess x) (/ (+ (/ x (square guess)) (* 2 guess)) 3))
(define (good-enough-cbrt? guess x)
(< (abs (- (cube guess) x)) (* guess (/ guess 100000))))
(define (square x) (* x x))
(define (cube x) (* x x x))
(define (cube-root x) (cbrt-iter 1.0 x))
#| END |#