(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
相关资源：JAVA上百实例源码以及开源项目