// yukicoder My Practice // author: Leonardone @ NEETSDKASU let get () = stdin.ReadLine().Split [|' '|] |> Array.map float let getValues () = match get () with | [|x; y|] -> (x, y) | _ -> failwith "Error" let getInputs () = let (Px, Py) = getValues () let (Qx, Qy) = getValues () (Px, Py, Qx, Qy) let solve (Px, Py, Qx, Qy) = let diffX = abs <| Px - Qx let diffY = abs <| Py - Qy (diffX + diffY) / 2.0 [] let main _ = getInputs () |> solve |> printfn "%.1f" 0