// 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 diff a b = b - a |> abs let diffX = diff Px Qx let diffY = diff Py Qy (/) (diffX + diffY) 2.0 [] let main _ = printfn "%.1f" << solve << getInputs <| () 0