sicp 1.37

最新推荐文章于 2019-08-02 08:23:52 发布

lang801213

最新推荐文章于 2019-08-02 08:23:52 发布

阅读量67

点赞数

分类专栏： SICP

本文链接：https://blog.csdn.net/lang801213/article/details/83871599

版权

SICP 专栏收录该内容

62 篇文章 0 订阅

订阅专栏

(define (cont-frac n d k)
  (define (iter k result)
    (if (= k 0)
        result
        (iter (- k 1) (/ (n k) (+ (d k) result)))))
  (iter k 0))

(define (cont k)
  (let ((eps 0.00005)
        (value (cont-frac (lambda (x) 1)
                          (lambda (x) 1)
                          k)))
    (display value)
    (newline)
    (if (< (abs (- (/ 1 value) 1.61803)) eps)
        k
        (cont (+ k 1)))))

(cont 1)

1
1/2
2/3
3/5
5/8
8/13
13/21
21/34
34/55
55/89
89/144
144/233
12