(defun main (&rest argv) (declare (ignorable argv)) (let* ((xp (read)) (yp (read)) (ans 0)) (loop (when (> (* ans ans) (+ (* 4 xp xp) (* 4 yp yp))) (return)) (incf ans)) (format t "~d~%" ans))) (main)