SICP习题 1.8 (立方根)

(define (cube-root x)
(cube-root-iter 1.0 x))

(define (cube-root-iter guess x)
(if (good-enough? guess x)
guess
(cube-root-iter (improve guess x)
x)))

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

(define (improve guess x)
(/ (+ (/ x (* guess guess)) (* 2 guess)) 3))

(cube-root (* 3 3 3))

转载于:https://www.cnblogs.com/R4mble/p/7880775.html