sicp 1.35

x=1+1/x的不动点：

 

(define (fixed-point f first-guess)
  (let ((eps 0.000001))
    (define (close-enough? g1 g2)
      (< (abs (- g1 g2)) eps))
    (define (try x)
      (if (close-enough? x (f x))
          x
          (try (f x))))
    (try first-guess)))

(define (f x)
  (+ 1 (/ 1 x)))

(fixed-point f 0.1)

 

1.6180343594662947