摘要：1.1.7 牛顿法求平方根(define (average x y) (/ (+ x y) 2))(define (improve guess x) (average guess (/ x guess)))(define (good-enough? guess x) (< (abs (- (* guess guess) x) )0.0000000000001) )(define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x) ))(define (sqrt-g x)
阅读全文
posted @ 2011-07-09 20:23
