結果

問題 No.837 Noelちゃんと星々2
ユーザー letrangerjp
提出日時 2019-06-14 22:22:10
言語 Ruby
(3.4.1)
結果
WA  
実行時間 -
コード長 585 bytes
コンパイル時間 49 ms
コンパイル使用メモリ 7,552 KB
実行使用メモリ 40,848 KB
最終ジャッジ日時 2024-11-14 06:38:35
合計ジャッジ時間 8,603 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 4 WA * 25
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

N = gets.to_i
Y = gets.split.map &:to_i
case Y.uniq.size
when 1
  p 1
when 2
  p 0
else
  Y.sort!
  cusum = [sum = 0] + Y.map{|y| sum += y }

  f = ->idx{
    lsum = cusum[idx]
    lave = lsum.fdiv(idx).round
    ldist = Y[0...idx].map{|n| (n - lave).abs }.sum

    rsum = sum - lsum
    rave = rsum.fdiv(N - idx).round
    rdist = Y[idx..-1].map{|n| (n - rave).abs }.sum
    
    ldist + rdist
  }

  l = 1
  r = N-1
  18.times{
    if f[(l * 2 + r) / 3] < f[(l + r * 2) / 3]
      r = (l + r * 2) / 3
    else
      l = (l * 2 + r) / 3
    end
  }
  # p [l,r]
  p f[(l + r) / 2]
end
0