2021-12-27 20:43:12 +00:00
|
|
|
#lang scheme
|
|
|
|
|
|
|
|
; We dont have closures at the time of writing, but each func gets its own env
|
|
|
|
; http://sarabander.github.io/sicp/html/1_002e1.xhtml#g_t1_002e1_002e7
|
|
|
|
|
|
|
|
(define (sqrt-iter guess x)
|
2021-12-29 02:32:43 +00:00
|
|
|
(if (good-enough? guess x) guess (sqrt-iter (improve guess x) x)))
|
2021-12-27 20:43:12 +00:00
|
|
|
|
|
|
|
(define (improve guess x)
|
|
|
|
(average guess (/ x guess)))
|
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(define (average x y)
|
2021-12-27 20:43:12 +00:00
|
|
|
(/ (+ x y) 2))
|
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(define (square x)
|
|
|
|
(* x x))
|
2021-12-27 20:43:12 +00:00
|
|
|
|
|
|
|
(define (good-enough? guess x)
|
|
|
|
(< (abs (- (square guess) x)) 0.001))
|
|
|
|
|
|
|
|
(define (sqrt x)
|
|
|
|
(sqrt-iter 1.0 x))
|
|
|
|
|
2021-12-29 02:32:43 +00:00
|
|
|
(display (sqrt 2))
|