CG@CPPBLOG

/*=========================================*/
随笔 - 76, 文章 - 39, 评论 - 137, 引用 - 0
数据加载中……

我的SICP习题答案(1.8)

采用1.7中的变化率为终止检测。

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

(define (cube-root-iter last-guess guess x)
  (if (enuf? last-guess guess)
      guess
      (cube-root-iter guess (improve guess x) x)))

(define (enuf? x y)
  (< (/ (abs (- x y)) y) 
0.001))

(define improve (lambda (y x)
                  (/ (+ (/ x (* y y)) (* 
2 y)) 3)))

posted on 2008-03-11 21:24 cuigang 阅读(1189) 评论(0)  编辑 收藏 引用 所属分类: Lisp/Scheme我的SICP答案


只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理