sicp 1.37

(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