摘要：
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 红色壁虎 阅读(319) 评论(0) 推荐(0) 编辑