kouddy · August 29, 2015 14:16
diff --git a/SICP 1.46.part3 b/SICP 1.46.part3
 (define (fixed-point f first-guess)
  (define tolerance 0.00001)
  (define (close-enough? v1 v2)
    (< (abs (- v1 v2)) tolerance))
  ((iterative-improve2 close-enough? f) first-guess))
  
 (define (sqrt x)
  (fixed-point (average-damp (lambda (y) (/ x y)))
               1.0))
	(define (fixed-point f first-guess)
	(define tolerance 0.00001)
	(define (close-enough? v1 v2)
	(< (abs (- v1 v2)) tolerance))
	((iterative-improve2 close-enough? f) first-guess))

	(define (sqrt x)
	(fixed-point (average-damp (lambda (y) (/ x y)))
	1.0))