Square root by newtons method - improved

sqrt-newtons-method-improved.lisp

(defun my-sqrt (x)
  (labels (
           (try (guess)
             (let ((improved (improve guess)))
               (if (good-enough? guess improved)
                   improved
                   (try improved))))
           (improve (guess)
             (average guess (/ x guess)))
           (good-enough? ( guess improved)
             (if (< (abs (- 1 (/ guess improved))) eps )
                 improved
                 nil)))
    (try 1.0)))