Submission #36891257

---

Source Code Expand

let solve N (Aa:int64[]) =
  let rec frec acc low high = function
    | (l::ls),(h::hs) -> frec (acc + h-low + high-l) l h (ls,hs)
    | [],[h] -> acc + (max (h-low) (high - h))
    | _,_ -> acc
  let (xs,ys) = Aa |> Array.sort |> Array.toList |> List.splitAt (N/2)
  let (l,ls) = (List.head xs, List.tail xs)
  let (h,hs) = ys |> List.rev |> fun zs -> (List.head zs, List.tail zs)
  frec (h-l) l h (ls,hs)

let N = stdin.ReadLine() |> int
let Aa = Array.init N (fun _ -> stdin.ReadLine() |> int64)
solve N Aa |> stdout.WriteLine

Submission Info

Judge Result