Submission #36920080

Source Code Expand

let solve N Aa =
  let Ca = Aa |> Array.mapi (fun i a -> a - (int64 (i+1)))
  let Ba = Ca |> Array.sort |> fun Ba -> if N%2=1 then [|Ba.[N/2]|] else [|Ba.[N/2-1];Ba.[N/2]|]
  Ba |> Array.map (fun b -> Ca |> Array.sumBy (fun x -> abs(x-b))) |> Array.min

let N = stdin.ReadLine() |> int
let Aa = stdin.ReadLine().Split() |> Array.map int64
solve N Aa |> stdout.WriteLine

Submission Info

Submission Time
Task C - Linear Approximation
User simin
Language F# (.NET Core 3.1.201)
Score 300
Code Size 376 Byte
Status AC
Exec Time 154 ms
Memory 49092 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 4
AC × 19
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt
All sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt, sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.txt, subtask_1_09.txt, subtask_1_10.txt, subtask_1_11.txt
Case Name Status Exec Time Memory
sample_01.txt AC 84 ms 27928 KiB
sample_02.txt AC 88 ms 27932 KiB
sample_03.txt AC 85 ms 28200 KiB
sample_04.txt AC 85 ms 27928 KiB
subtask_1_01.txt AC 87 ms 27812 KiB
subtask_1_02.txt AC 102 ms 32636 KiB
subtask_1_03.txt AC 105 ms 32052 KiB
subtask_1_04.txt AC 112 ms 38996 KiB
subtask_1_05.txt AC 141 ms 46144 KiB
subtask_1_06.txt AC 133 ms 48508 KiB
subtask_1_07.txt AC 154 ms 49048 KiB
subtask_1_08.txt AC 127 ms 49024 KiB
subtask_1_09.txt AC 137 ms 48560 KiB
subtask_1_10.txt AC 147 ms 48996 KiB
subtask_1_11.txt AC 141 ms 49092 KiB