## Код Ревью

Сравни свои решения

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