scheme 求平方根函数 sqrt 牛顿法实现

当看到书上的代码的时候，我一直以为是示意代码(伪代码)，没想到这是真实的代码。我记录一下这段代码在此。

; 求平方根的函数：牛顿法
(define (sqrt-iter guess x)
  (if (good-enouth? guess x)
    guess
    (sqrt-iter (improve guess x) x)
  )
)
(define (improve guess x)
  (average guess (/ x guess))
)

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

(define (good-enouth? guess x)
   (< (abs (- (square guess) x)) 0.001)
)
(define (square x) (* x x))

(define (sqrt x) (sqrt-iter 1.0 x))

(display (sqrt 9))

这种情况下，并没有去使用局部名，代码显得松散，但是更便于理解。

---

看到有人发博文说20天刷完SICP,我感觉对我而言，大概是20天刷完第一章吧...