Submission #3000106

---

Source Code Expand

let (-:) (x0,y0) (x1,y1) = (x0-.x1, y0-.y1)
let cross (x0,y0) (x1,y1) = x0*.y1 -. x1*.y0
let abs (x,y) = sqrt (x*.x +. y*.y)
let dist p s t = abs_float (cross (p -: s) (t -: s)) /. abs (t -: s)
let () =
  Scanf.scanf "%f %f %d" @@ fun x0 y0 n ->
  let a = Array.init n (fun _ -> Scanf.scanf " %f %f" (fun x y -> x, y)) in
  Array.init n (fun i -> dist (x0,y0) a.(i) a.((i+1) mod n))
  |> Array.fold_left min 10101010.
  |> Printf.printf "%.10f\n"

Submission Info

Judge Result