2015年3月29日

SICP:1.37 递归/迭代求无穷连分式

摘要： #lang racket(define (cont-frac N D k) (define (cf t) (if (= t 1) (/ (N t) (D t)) (/ (N t) (+ (D t) (cf (- t 1)))) );if );cf (cf k) )... 阅读全文

posted @ 2015-03-29 13:41 Zachary_wiz 阅读(244) 评论(0) 推荐(0) 编辑

SICP:求函数的不定点来实现开平方根(由于使用平均阻尼技术，过程类似牛顿开平方根，以及求黄金分割率)

摘要： #lang racket(define tolerance 0.00001);公差(define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance) );clos... 阅读全文

posted @ 2015-03-29 10:05 Zachary_wiz 阅读(286) 评论(0) 推荐(0) 编辑

导航