Common Lisp练习，使用牛顿法计算平方根： (defun sqrt (x) (do ((i 1 (/ …