Skip to content

Instantly share code, notes, and snippets.

@tetsu-miyagawa

tetsu-miyagawa/SICP Exercise 1.7.scm

Created July 2, 2015 05:18
Show Gist options
  • Save tetsu-miyagawa/24e4d0ad3b0eceb0eb1f to your computer and use it in GitHub Desktop.
Save tetsu-miyagawa/24e4d0ad3b0eceb0eb1f to your computer and use it in GitHub Desktop.
Download ZIP
SICP Exercise 1.7
Raw
SICP Exercise 1.7.scm
(define (square-root2 x)
(sqrt-iter2 1.0 x x))
(define (sqrt-iter2 prev-guess guess x)
(if (good-enough?2 prev-guess guess)
guess
(sqrt-iter2 guess (improve guess x) x)))
(define (good-enough?2 prev-guess guess)
(< (abs (/ (- prev-guess guess) prev-guess)) 0.001))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment