結果

問題 No.837 Noelちゃんと星々2
ユーザー simansiman
提出日時 2022-07-14 09:26:05
言語 Ruby
(3.3.0)
結果
AC  
実行時間 213 ms / 2,000 ms
コード長 879 bytes
コンパイル時間 602 ms
コンパイル使用メモリ 11,172 KB
実行使用メモリ 27,056 KB
最終ジャッジ日時 2023-09-07 22:10:08
合計ジャッジ時間 6,380 ms
ジャッジサーバーID
（参考情報） 		judge15 / judge14
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 206 ms
27,012 KB
testcase_01 AC 211 ms
26,804 KB
testcase_02 AC 212 ms
26,800 KB
testcase_03 AC 206 ms
27,056 KB
testcase_04 AC 205 ms
26,768 KB
testcase_05 AC 210 ms
27,004 KB
testcase_06 AC 208 ms
26,744 KB
testcase_07 AC 208 ms
27,040 KB
testcase_08 AC 213 ms
27,004 KB
testcase_09 AC 82 ms
15,072 KB
testcase_10 AC 82 ms
15,072 KB
testcase_11 AC 83 ms
15,068 KB
testcase_12 AC 84 ms
15,208 KB
testcase_13 AC 80 ms
15,064 KB
testcase_14 AC 80 ms
15,132 KB
testcase_15 AC 79 ms
15,036 KB
testcase_16 AC 81 ms
15,112 KB
testcase_17 AC 81 ms
15,140 KB
testcase_18 AC 79 ms
15,044 KB
testcase_19 AC 80 ms
15,036 KB
testcase_20 AC 79 ms
15,072 KB
testcase_21 AC 80 ms
15,160 KB
testcase_22 AC 80 ms
15,032 KB
testcase_23 AC 79 ms
15,276 KB
testcase_24 AC 80 ms
15,076 KB
testcase_25 AC 81 ms
15,316 KB
testcase_26 AC 82 ms
15,120 KB
testcase_27 AC 81 ms
15,088 KB
testcase_28 AC 80 ms
15,168 KB
testcase_29 AC 80 ms
15,252 KB
testcase_30 AC 82 ms
15,116 KB
testcase_31 AC 83 ms
15,132 KB
testcase_32 AC 87 ms
15,224 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

N = gets.to_i
Y = gets.split.map(&:to_i).sort
us = Y.uniq.size

if us == 2
  puts 0
  exit
elsif us == 1
  puts 1
  exit
end

def f(arr)
  mid = arr.size / 2
  x = arr[mid]

  arr.map { |v| (v - x).abs }.sum
end

L = Array.new(N, 0)
mid = 0
val = 0
N.times do |i|
  if mid < i / 2
    mid += 1
    val += (mid - 1) * (Y[mid] - Y[mid - 1])
    val -= (i - 1 - mid) * (Y[mid] - Y[mid - 1])
  end

  val += Y[i] - Y[mid]
  L[i] = val
  # pp [:mid, mid, val, f(Y[0..i])]
end

R = Array.new(N, 0)
mid = N - 1
val = 0
(N - 1).downto(0) do |i|
  if (N - 1 - mid) < (N - 1 - i) / 2
    mid -= 1
    val += (N - 1 - mid - 1) * (Y[mid + 1] - Y[mid])
    val -= (mid - i - 1) * (Y[mid + 1] - Y[mid])
  end

  val += Y[mid] - Y[i]
  R[i] = val
  # pp [:mid, mid, val, f(Y[i..])]
end

ans = Float::INFINITY

0.upto(N - 2) do |mid|
  v = L[mid] + R[mid + 1]
  ans = v if ans > v
end

puts ans
0