結果

問題 No.1071 ベホマラー
ユーザー yuruhiyayuruhiya
提出日時 2020-06-05 21:41:22
言語 Crystal
(1.14.0)
結果
AC  
実行時間 195 ms / 2,000 ms
コード長 325 bytes
コンパイル時間 12,769 ms
コンパイル使用メモリ 304,380 KB
実行使用メモリ 36,056 KB
最終ジャッジ日時 2024-06-30 20:13:37
合計ジャッジ時間 16,693 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 5
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff # 

require "big"
n, k, x, y = read_line.split.map &.to_big_i
a = read_line.split.map &.to_big_i
b = a.map { |i| (i + k - 2)//k }.sort
cul = [0.to_big_i] * (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] + x * (cul[i + 1] - b[i] * (n - 1 - i))
}
0