(define (sqt a b)
(if (stop a b)
b
(sqt a
(/ (+ b
(/ a b))
2))))
(define (stop a b)
(< (abs (- a (* b b))) 0.0000005))
SICP 1.1.7 牛顿迭代法求方根
最新推荐文章于 2019-08-18 15:38:27 发布