minimumDiameter :: [Int] -> Int minimumDiameter (xp : yp : _) | d * d == 4 * r2 = d + 1 | otherwise = d where r2 = xp * xp + yp * yp d = ceiling $ (*) 2 $ sqrt $ fromIntegral r2 main :: IO () main = print . minimumDiameter . map read . words =<< getLine