关闭

SICP 练习1.8 求立方根

93人阅读 评论(0) 收藏 举报
分类:

只需要将1.7的程序的improve改成题目中给的式子即可

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

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

(define (good-enough? guess x)
  (< (/ (abs (- guess x)) guess) 0.00001))

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

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

(cube 27)
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:68232次
    • 积分:3683
    • 等级:
    • 排名:第9191名
    • 原创:315篇
    • 转载:3篇
    • 译文:0篇
    • 评论:4条
    文章分类
    最新评论