黄金比に対して、
よって、黄金比は変換の不動点。
で、不動点を求める以下の手続きを使って、を計算する。
(define (close-enough? x y) (< (abs (- x y)) 0.001)) (define tolerance 0.00001) (define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (try guess) (let ((next (f guess))) (if (close-enough? guess next) next (try next)))) (try first-guess))
gosh> (fixed-point (lambda (x) (+ 1 (/ 1 x))) 1.0) 1.6180327868852458