(defun main (&rest argv) (declare (ignorable argv)) (let* ((x (read)) (y (read)) (r (read)) (d (+ (abs x) (abs y) (ceiling (* r (expt 2 0.5d0)))))) (format t "~d~%" d))) (main)