; sqrt using do
(define (mysqrt x)
  (do ( (estimate
         1.0
         (/ (+ estimate
               (/ x estimate))
            2) ) )
      ( (< (abs (- (square estimate) x))
           1.0e-8)
        estimate)
                   ; no body
      ) )

Contents    Page-10    Prev    Next    Page+10    Index