ルートの計算

1でルートの中身を割り、答えと1の平均値でまたルートの中身を割り、その答えと割った数の平均値でルートの中身を割り・・・を繰り返していくと、だんだん差が縮まってくる。
(ニュートンメソッド)
1.1.7 Example: Square Roots by Newton's Method (Structure and Interpretation of Computer Programs)

(define (sqrt-test x)
  (define (improve guess)
    (average guess (/ x guess)))
  (define (good-enough? guess)
    (< (abs (- (square guess) x)) 0.001)) ;0.001以下の誤差を許容
  (define (sqrt-iter guess)
    (if (good-enough? guess)
      guess
      (sqrt-iter (improve guess))))
  (sqrt-iter 1.0))