Solution for Exercise 1.7 Square root

Code Review

Compare your solutions

    #| BEGIN (Write your solution here) |#
(define (square-root x)
  (sqrt-iter 1.0 x))

(define (sqrt-iter guess x) 
  (cond ((good-enough? guess x) guess)
        (else (sqrt-iter (improve-guess guess x) x))
  ))

(define (improve-guess guess x) 
  (/ (+ guess (/ x guess)) 
     2)
  )

(define (good-enough? guess x) 
  (< 
     (/ (abs (- (improve-guess guess x) guess)) 
            guess) 
       0.0000000000001)
  )
#| END |#

    #| BEGIN (Write your solution here) |#
(define (square-root x)
  (sqrt-iter 1.0 x))

(define (sqrt-iter guess x) 
  (cond ((good-enough? guess x) guess)
        (else (sqrt-iter (improve-guess guess x) x))
  ))

(define (improve-guess guess x) 
  (/ (+ guess (/ x guess)) 
     2)
  )

(define (good-enough? guess x) 
  (< 
     (/ (abs (- (improve-guess guess x) guess)) 
            guess) 
       0.0000000001)
  )
#| END |#

    #| BEGIN (Write your solution here) |#
(define (square-root x)
  (sqrt-iter 1.0 x))

(define (sqrt-iter guess x) 
  (cond ((good-enough? guess x) guess)
        (else (sqrt-iter (improve-guess guess x) x))
  ))

(define (improve-guess guess x) 
  (/ (+ guess (/ x guess)) 
     2)
  )

(define (good-enough? guess x) 
  (< 
     (/ (abs (- (improve-guess guess x) guess)) 
            guess) 
       0.0000000001)
  )
#| END |#

    #| BEGIN (Write your solution here) |#
(define (square-root x)
  (sqrt-iter 1.0 x))

(define (sqrt-iter guess x) 
  (cond ((good-enough? guess x) guess)
        (else (sqrt-iter (improve-guess guess x) x))
  ))

(define (improve-guess guess x) 
  (/ (+ guess (/ x guess)) 
     2)
  )

(define (good-enough? guess x) 
  (< 
     (/ (abs (- (improve-guess guess x) guess)) 
            guess) 
       0.0000000000001)
  )
#| END |#

    #| BEGIN (Write your solution here) |#
(define (square-root x)
  (sqrt-iter 1.0 x))

(define (sqrt-iter guess x) 
  (cond ((good-enough? guess x) guess)
        (else (sqrt-iter (improve-guess guess x) x))
  ))

(define (improve-guess guess x) 
  (/ (+ guess (/ x guess)) 
     2)
  )

(define (good-enough? guess x) 
  (< 
     (/ (abs (- (improve-guess guess x) guess)) 
            guess) 
       0.0000000001)
  )
#| END |#

    #| BEGIN (Write your solution here) |#
(define (square-root x)
  (sqrt-iter 1.0 x))

(define (sqrt-iter guess x) 
  (cond ((good-enough? guess x) guess)
        (else (sqrt-iter (improve-guess guess x) x))
  ))

(define (improve-guess guess x) 
  (/ (+ guess (/ x guess)) 
     2)
  )

(define (good-enough? guess x) 
  (< 
     (/ (abs (- (improve-guess guess x) guess)) 
            guess) 
       0.0000000001)
  )
#| END |#