Код Ревью
Сравни свои решения
(define (good-enough? guess prev)
(< (abs (- prev guess)) 0.001))
(define (square x)
(* x x))
(define (cube-iter guess prevGuess x)
(if (good-enough? guess prevGuess)
guess
(cube-iter (improve-cube guess x)
guess
x)))
(define (improve-cube guess x)
(/ (+
(/ x (square guess))
(* 2 guess))
3))
(define (cube-root x)
(cube-iter 1.0 10.0 x))
(define (good-enough? guess prev)
(< (abs (- prev guess)) 0.001))
(define (square x)
(* x x))
(define (cube-iter guess prevGuess x)
(if (good-enough? guess prevGuess)
guess
(cube-iter (improve-cube guess x)
guess
x)))
(define (improve-cube guess x)
(/ (+
(/ x (square guess))
(* 2 guess))
3))
(define (cube-root x)
(cube-iter 1.0 10.0 x))
(define (good-enough? guess prev)
(< (abs (- prev guess)) 0.001))
(define (square x)
(* x x))
(define (cube-iter guess prevGuess x)
(if (good-enough? guess prevGuess)
guess
(cube-iter (improve-cube guess x)
guess
x)))
(define (improve-cube guess x)
(/ (+
(/ x (square guess))
(* 2 guess))
3))
(define (cube-root x)
(cube-iter 1.0 10.0 x))
(define (good-enough? guess prev)
(< (abs (- prev guess)) 0.001))
(define (square x)
(* x x))
(define (cube-iter guess prevGuess x)
(if (good-enough? guess prevGuess)
guess
(cube-iter (improve-cube guess x)
guess
x)))
(define (improve-cube guess x)
(/ (+
(/ x (square guess))
(* 2 guess))
3))
(define (cube-root x)
(cube-iter 1.0 10.0 x))