SICP 1.8 solution

(define (improve guess x) (/ (+ (/ x (* guess guess)) (* 2 guess)) 3)) (define (good-enough? guess x) (< (abs (- (* guess guess guess) x)) 0.001)) (define (cube-root guess x) (if (good-enough? guess x) guess (cube-root (improve guess x) x))) (cube-root 1.0 27) 

中间少了一个括号我检查了很久，郁闷。还有(cube-root 1.0 27)中，1.0不能替换为1，因为这里进行的是浮点运算。