結果

問題 No.2028 Even Choice
ユーザー 👑 obakyanobakyan
提出日時 2022-08-09 09:48:39
言語 Lua
(LuaJit 2.1.1696795921)
結果
AC  
実行時間 98 ms / 2,000 ms
コード長 1,896 bytes
コンパイル時間 182 ms
コンパイル使用メモリ 5,152 KB
実行使用メモリ 6,744 KB
最終ジャッジ日時 2023-10-19 20:41:53
合計ジャッジ時間 3,716 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge15
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 93 ms
5,960 KB
testcase_01 AC 81 ms
6,720 KB
testcase_02 AC 98 ms
5,972 KB
testcase_03 AC 67 ms
6,736 KB
testcase_04 AC 67 ms
6,736 KB
testcase_05 AC 20 ms
4,348 KB
testcase_06 AC 90 ms
5,968 KB
testcase_07 AC 23 ms
4,348 KB
testcase_08 AC 63 ms
4,348 KB
testcase_09 AC 62 ms
5,976 KB
testcase_10 AC 19 ms
4,348 KB
testcase_11 AC 19 ms
4,348 KB
testcase_12 AC 9 ms
4,348 KB
testcase_13 AC 54 ms
6,744 KB
testcase_14 AC 27 ms
4,348 KB
testcase_15 AC 2 ms
4,348 KB
testcase_16 AC 1 ms
4,348 KB
testcase_17 AC 2 ms
4,348 KB
testcase_18 AC 2 ms
4,348 KB
testcase_19 AC 2 ms
4,348 KB
testcase_20 AC 3 ms
4,348 KB
testcase_21 AC 3 ms
4,348 KB
testcase_22 AC 3 ms
4,348 KB
testcase_23 AC 2 ms
4,348 KB
testcase_24 AC 2 ms
4,348 KB
testcase_25 AC 2 ms
4,348 KB
testcase_26 AC 1 ms
4,348 KB
testcase_27 AC 1 ms
4,348 KB
testcase_28 AC 37 ms
4,348 KB
testcase_29 AC 25 ms
4,348 KB
testcase_30 AC 18 ms
4,348 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

local mmi, mma = math.min, math.max
local bls, brs = bit.lshift, bit.rshift
local Heapq = {}
Heapq.create = function(self, lt)
  self.lt = lt
  self.cnt = 0
  self.t = {}
end

Heapq.push = function(self, v)
  local hqlt = self.lt
  local hqt = self.t
  local c = self.cnt + 1
  self.cnt = c
  hqt[c] = v
  while 1 < c do
    local p = brs(c, 1)
    if hqlt(hqt[c], hqt[p]) then
      hqt[c], hqt[p] = hqt[p], hqt[c]
      c = p
    else
      break
    end
  end
end

Heapq.pop = function(self)
  local hqlt = self.lt
  local hqt = self.t
  local ret = hqt[1]
  local c = self.cnt
  hqt[1] = hqt[c]
  c = c - 1
  self.cnt = c
  local p = 1
  while true do
    local d1, d2 = p * 2, p * 2 + 1
    if c < d1 then break
    elseif c < d2 then
      if hqlt(hqt[d1], hqt[p]) then
        hqt[d1], hqt[p] = hqt[p], hqt[d1]
      end
      break
    else
      if hqlt(hqt[d1], hqt[d2]) then
        if hqlt(hqt[d1], hqt[p]) then
          hqt[d1], hqt[p] = hqt[p], hqt[d1]
          p = d1
        else break
        end
      else
        if hqlt(hqt[d2], hqt[p]) then
          hqt[d2], hqt[p] = hqt[p], hqt[d2]
          p = d2
        else break
        end
      end
    end
  end
  return ret
end

Heapq.new = function(lt)
  local obj = {}
  setmetatable(obj, {__index = Heapq})
  obj:create(lt)
  return obj
end

local n, k = io.read("*n", "*n")
local a = {}
for i = 1, n do
  a[i] = io.read("*n")
end
local lim = math.floor(n / 2) * 2
local cnt = 0
local sum = 0
local ret = 0
local hq = Heapq.new(function(a, b) return a < b end)
local pos = n + 1
for i = lim, 2, -2 do
  for j = i + 1, pos - 1 do
    cnt = cnt + 1
    local v = a[j]
    sum = sum + v
    hq:push(v)
  end
  pos = i + 1
  while k - 1 < cnt do
    local v = hq:pop()
    sum = sum - v
    cnt = cnt - 1
  end
  if cnt == k - 1 then
    ret = mma(ret, a[i] + sum)
  end
end
ret = tostring(1LL * ret):gsub("LL", "")
print(ret)
0