minimumBarrierSize :: [Double] -> Int minimumBarrierSize (x : y : r : _) = ceiling $ abs x + abs y + sqrt 2 * r main :: IO () main = print . minimumBarrierSize . map read . words =<< getLine