Код Ревью
Сравни свои решения
#| BEGIN (Введите свое решение) |#
(define (average x y)
(/ (+ x y) 2))
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (average x y)
(/ (+ x y) 2))
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (average x y)
(/ (+ x y) 2))
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (average x y)
(/ (+ x y) 2))
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (improve guess x)
(/ (+ (/ x
(* guess guess))
(* 2 guess))
3))
(define (good-enough? guess x)
(define improved (improve guess x))
(> (/ (min guess improved)
(max guess improved)) 0.9999999999))
(define (iter-root guess x)
(if (good-enough? guess x)
guess
(iter-root (improve guess x)
x)))
(define (cube-root x)
(iter-root 1.0 x))
#| END |#