Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (my-sqrt x)
- (define (guess k)
- (if (< (abs (- (* k k) x)) 0.0001)
- k
- (guess (- k (/ (- (* k k) x) (* k 2))))))
- (guess 1.0))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement