Код Ревью
Сравни свои решения
#| BEGIN (Write your solution here) |#
#| END |#
(define (square x) (* x x))
(define (abs a)
(if (> a 0)
a
(- a)))
(define (good_enough prev_guess guess)
(< (abs prev_guess guess) 0.00001))
(define (avg a b)
(/ (+ a b) 2))
(define (improve value guess)
(avg (/ value guess) guess))
(define (sqrt_helper x guess prev_guess)
(if (good_enough prev_guess guess)
guess
(sqrt_helper x (improve x guess) guess)))
(define (solution x)
(sqrt_helper x x 1))
#| BEGIN (Write your solution here) |#
#| END |#
(define (square x) (* x x))
(define (abs a)
(if (> a 0)
a
(- a)))
(define (good_enough prev_guess guess)
(< (abs prev_guess guess) 0.00001))
(define (avg a b)
(/ (+ a b) 2))
(define (improve value guess)
(avg (/ value guess) guess))
(define (sqrt_helper x guess prev_guess)
(if (good_enough prev_guess guess)
guess
(sqrt_helper x (improve x guess) guess)))
(define (square-root x)
(sqrt_helper x x 1))
#| BEGIN (Write your solution here) |#
#| END |#
(define (square x) (* x x))
(define (abs a)
(if (> a 0)
a
(- a)))
(define (avg a b)
(/ (+ a b) 2))
(define (improve value guess)
(avg (/ value guess) guess))
(define (good_enough prev_guess guess)
(< (abs (- prev_guess guess)) 0.00001))
(define (sqrt_helper x guess prev_guess)
(if (good_enough prev_guess guess)
guess
(sqrt_helper x (improve x guess) guess)))
(define (square-root x)
(sqrt_helper x x 1))
#| BEGIN (Write your solution here) |#
#| END |#
(define (square x) (* x x))
(define (abs a)
(if (> a 0)
a
(- a)))
(define (good_enough prev_guess guess)
(< (abs prev_guess guess) 0.00001))
(define (avg a b)
(/ (+ a b) 2))
(define (improve value guess)
(avg (/ value guess) guess))
(define (sqrt_helper x guess prev_guess)
(if (good_enough prev_guess guess)
guess
(sqrt_helper x (improve x guess) guess)))
(define (solution x)
(sqrt_helper x x 1))
#| BEGIN (Write your solution here) |#
#| END |#
(define (square x) (* x x))
(define (abs a)
(if (> a 0)
a
(- a)))
(define (good_enough prev_guess guess)
(< (abs prev_guess guess) 0.00001))
(define (avg a b)
(/ (+ a b) 2))
(define (improve value guess)
(avg (/ value guess) guess))
(define (sqrt_helper x guess prev_guess)
(if (good_enough prev_guess guess)
guess
(sqrt_helper x (improve x guess) guess)))
(define (square-root x)
(sqrt_helper x x 1))
#| BEGIN (Write your solution here) |#
#| END |#
(define (square x) (* x x))
(define (abs a)
(if (> a 0)
a
(- a)))
(define (avg a b)
(/ (+ a b) 2))
(define (improve value guess)
(avg (/ value guess) guess))
(define (good_enough prev_guess guess)
(< (abs (- prev_guess guess)) 0.00001))
(define (sqrt_helper x guess prev_guess)
(if (good_enough prev_guess guess)
guess
(sqrt_helper x (improve x guess) guess)))
(define (square-root x)
(sqrt_helper x x 1))