Exercise 1.8 Cube root
Mikhail

Code Review

Compare your solutions
    (define (good-enough? guess prev)
  (< (abs (- prev guess)) 0.001))

(define (square x)
  (* x x))

(define (cube-iter guess prevGuess x)
  (if (good-enough? guess prevGuess)
      guess
      (cube-iter (improve-cube guess x)
                 guess
                 x)))

(define (improve-cube guess x)
  (/ (+
      (/ x (square guess))
      (* 2 guess))
     3))

(define (cube-root x)
  (cube-iter 1.0 10.0 x))

    (define (good-enough? guess prev)
  (< (abs (- prev guess)) 0.001))

(define (square x)
  (* x x))

(define (cube-iter guess prevGuess x)
  (if (good-enough? guess prevGuess)
      guess
      (cube-iter (improve-cube guess x)
                 guess
                 x)))

(define (improve-cube guess x)
  (/ (+
      (/ x (square guess))
      (* 2 guess))
     3))

(define (cube-root x)
  (cube-iter 1.0 10.0 x))

    (define (good-enough? guess prev)
  (< (abs (- prev guess)) 0.001))

(define (square x)
  (* x x))

(define (cube-iter guess prevGuess x)
  (if (good-enough? guess prevGuess)
      guess
      (cube-iter (improve-cube guess x)
                 guess
                 x)))

(define (improve-cube guess x)
  (/ (+
      (/ x (square guess))
      (* 2 guess))
     3))

(define (cube-root x)
  (cube-iter 1.0 10.0 x))

    (define (good-enough? guess prev)
  (< (abs (- prev guess)) 0.001))

(define (square x)
  (* x x))

(define (cube-iter guess prevGuess x)
  (if (good-enough? guess prevGuess)
      guess
      (cube-iter (improve-cube guess x)
                 guess
                 x)))

(define (improve-cube guess x)
  (/ (+
      (/ x (square guess))
      (* 2 guess))
     3))

(define (cube-root x)
  (cube-iter 1.0 10.0 x))