main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Double
solve [px, py, qx, qy] = (fromIntegral d) / (fromIntegral 2)
    where
        d = abs (px - qx) + abs (py - qy)