Skip to content

Instantly share code, notes, and snippets.

@kouddy

kouddy/SICP 1.46.part2

Created March 12, 2015 02:27
Show Gist options
  • Save kouddy/731205331c53b043f3b4 to your computer and use it in GitHub Desktop.
Save kouddy/731205331c53b043f3b4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SICP 1.46.part2
(define (iterative-improve good-enough? improve)
(define (try guess)
(let ((next (improve guess)))
(if (good-enough? guess next)
next
(try next))))
(lambda (first-guess) (try first-guess)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment