You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
353 B
15 lines
353 B
(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)) |
|
|
|
;; close enough |
|
(display (fixed-point (lambda (x) (+ 1 (/ 1 x))) 1.0))
|
|
|