Code Review

Compare your solutions

    #| BEGIN (Введите свое решение) |#
(define (cube-root x) 
  (define (cube-iter y) 
    (if (good-enough? y)
        y
        (cube-iter (improve y))))
  (define (good-enough? y)
    (< (abs (- (* y y y) x)) 0.0001))
  (define (improve y)
    (/ (+ (/ x (* y y)) (* 2 y)) 3))
  (cube-iter 1)
  )  
#| END |#