結果

問題 No.1071 ベホマラー
ユーザー yuruhiya
提出日時 2020-06-05 21:33:56
言語 Crystal
(1.14.0)
結果
RE  
実行時間 -
コード長 290 bytes
コンパイル時間 12,116 ms
コンパイル使用メモリ 296,868 KB
実行使用メモリ 12,416 KB
最終ジャッジ日時 2024-06-30 20:14:14
合計ジャッジ時間 13,132 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 5
other AC * 14 RE * 6
権限があれば一括ダウンロードができます

ソースコード

diff # 

n, k, x, y = read_line.split.map &.to_i64
a = read_line.split.map &.to_i64
b = a.map { |i| (i + k - 2)//k }.sort
cul = [0_i64]*(n + 1)
n.pred.downto(0) do |i|
  cul[i] = cul[i + 1] + b[i]
end

y = x*n if y > x*n
puts n.times.to_a.min_of { |i|
  y*b[i] + (cul[i + 1] - b[i]*(n - 1 - i))*x
}
0