Common Lisp练习，使用牛顿法计算平方根：

(defun sqrt (x)
  (do ((i 1 (/ (+ (/ x i) i) 2)))
      ((< (abs (- x (* i i))) 0.0000001) (+ 0 i))
    ()))
;;(sqrt 2) => 665857/470832