weixin_45105183的博客

原创 SICP 练习1.8

(define (cubic x) (* x x x)) (define (square x) (* x x)) (define (improve guess x) (/ (+ (/ x (square guess)) (* 2 guess)) 3)) (define (good-enough? guess x) (< (abs (- (cubic guess) x)) 0.001)) (d...