提出 #36891257

ソースコード 拡げる

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

提出情報

提出日時
問題 C - Align
ユーザ simin
言語 F# (.NET Core 3.1.201)
得点 400
コード長 541 Byte
結果 AC
実行時間 130 ms
メモリ 40168 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 400 / 400
結果
AC × 3
AC × 40
セット名 テストケース
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 30.txt, 31.txt, 32.txt, 33.txt, 34.txt, 35.txt, 36.txt, 37.txt, s1.txt, s2.txt, s3.txt
ケース名 結果 実行時間 メモリ
01.txt AC 120 ms 39896 KiB
02.txt AC 125 ms 40124 KiB
03.txt AC 120 ms 39812 KiB
04.txt AC 121 ms 39984 KiB
05.txt AC 124 ms 39740 KiB
06.txt AC 117 ms 39732 KiB
07.txt AC 123 ms 39748 KiB
08.txt AC 118 ms 39820 KiB
09.txt AC 121 ms 40168 KiB
10.txt AC 116 ms 39672 KiB
11.txt AC 124 ms 39700 KiB
12.txt AC 120 ms 40108 KiB
13.txt AC 120 ms 39692 KiB
14.txt AC 122 ms 39760 KiB
15.txt AC 116 ms 39732 KiB
16.txt AC 120 ms 39792 KiB
17.txt AC 117 ms 40104 KiB
18.txt AC 120 ms 39684 KiB
19.txt AC 121 ms 39748 KiB
20.txt AC 120 ms 39792 KiB
21.txt AC 130 ms 39636 KiB
22.txt AC 117 ms 39708 KiB
23.txt AC 125 ms 39952 KiB
24.txt AC 120 ms 39588 KiB
25.txt AC 113 ms 38368 KiB
26.txt AC 108 ms 38556 KiB
27.txt AC 122 ms 38272 KiB
28.txt AC 113 ms 38292 KiB
29.txt AC 107 ms 38440 KiB
30.txt AC 119 ms 39280 KiB
31.txt AC 122 ms 39668 KiB
32.txt AC 112 ms 39324 KiB
33.txt AC 86 ms 28336 KiB
34.txt AC 82 ms 28240 KiB
35.txt AC 82 ms 28240 KiB
36.txt AC 84 ms 28012 KiB
37.txt AC 87 ms 28172 KiB
s1.txt AC 88 ms 27952 KiB
s2.txt AC 91 ms 28004 KiB
s3.txt AC 91 ms 28072 KiB