// yukicoder My Practice // author: Leonardone @ NEETSDKASU let get() = stdin.ReadToEnd().Trim().Split [|' '; '\n'|] |> Array.map float |> fun xyxy -> match xyxy with | [|px; py; qx; qy|] -> px, py, qx, qy | _ -> failwith "Error" let solve(Px, Py, Qx, Qy) = let diff k = abs << (-) k diff Px Qx + diff Py Qy |> (/) <| 2.0 [] let main _ = printfn "%A" << solve << get <| () 0