結果

問題 No.1071 ベホマラー
コンテスト
ユーザー yuruhiya
提出日時 2020-06-05 21:41:22
言語 Crystal
(1.22.0 + ACL)
コンパイル:
crystal build -Donline_judge -o a.out --release --no-debug _filename_
実行:
./a.out
結果
AC  
実行時間 134 ms / 2,000 ms
+ 89µs
コード長 325 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 10,621 ms
コンパイル使用メモリ 348,140 KB
実行使用メモリ 35,328 KB
最終ジャッジ日時 2026-10-19 17:51:51
合計ジャッジ時間 14,915 ms
ジャッジサーバーID
（参考情報） 		judge6_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 5
other AC * 21
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

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