exec 1.8

2019独角兽企业重金招聘Python工程师标准>>>

(define (square x)
  (* x x)
)


(define (good-enough guess x)
  (< (abs(- (square guess) x)) 0.001)
  )


(define (improve guess x)
  (/ (+ (/ x (square guess)) (* guess 2.0)) 3.0)
)


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


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

转载于:https://my.oschina.net/mayqlzu/blog/93956