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 |#