View difference between Paste ID: kPhBjiHi and xiYyAJyg

 (define (abs x)
   (cond ((< x 0) (- x))
         (else x)))
 
 (define (square x) (* x x))
-  (new-if (good-enough? guess x)
+
-          guess
+
-          (sqrt-iter (improve guess x)
+(define (improve guess x)
-                     x)))
+  (average guess (/ x guess)))
 
 (define (average x y)
     (/ (+ x y) 2))
 
 (define (good-enough? guess x)
   (< (abs (- (square guess) x)) 0.001))
 
 (define (new-if predicate then-clause else-clause)
   (cond (predicate then-clause)
         (else else-clause)))
 
 
 (define (sqrt-iter guess x)
     (if (good-enough? guess x)
         guess
         (sqrt-iter (improve guess x)
                    x)))
 
 (define (sqrt x)
   (sqrt-iter 1.0 x))