#| BEGIN (Введите свое решение) |#
(define (square a) (* a a))

(define (good-enough? guess prev-guess)
  (< (abs (- prev-guess guess)) 0.01))

(define (average x y)
  (/ (+ x y) 2))

(define (improve guess x)
  (average guess (/ x guess)))
 
(define (sqrt-iter guess prev-guess x)
  (if (good-enough? guess prev-guess) 
    guess
    (sqrt-iter (improve guess x) guess x)))

(define (square-root x)
  (sqrt-iter 1.0 x x))
;; да на больших и маленьких числах этот вариант работает лучше
#| END |#