Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (square x)
- (* x x))
- (define (average a b)
- (* 0.5 (+ a b)))
- (define (sqrt x)
- (define (good-enough? guess)
- (< (abs (- (square guess) x)) 0.001))
- (define (improve guess)
- (average guess (/ x guess)))
- (define (sqrt-iter guess)
- (if (good-enough? guess)
- guess
- (sqrt-iter (improve guess))))
- (sqrt-iter 1.0))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement