結果
| 問題 |
No.9 モンスターのレベル上げ
|
| ユーザー |
|
| 提出日時 | 2020-10-10 22:01:56 |
| 言語 | Lua (LuaJit 2.1.1734355927) |
| 結果 |
AC
|
| 実行時間 | 2,556 ms / 5,000 ms |
| コード長 | 1,836 bytes |
| コンパイル時間 | 85 ms |
| コンパイル使用メモリ | 5,248 KB |
| 実行使用メモリ | 5,376 KB |
| 最終ジャッジ日時 | 2024-07-20 17:01:37 |
| 合計ジャッジ時間 | 19,377 ms |
|
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
| ファイルパターン | 結果 |
|---|---|
| other | AC * 20 |
ソースコード
local function meld(node1,node2)
if not node1 then
return node2
elseif not node2 then
return node1
elseif node1[1]<node2[1] then
node2[4]=node1[3]
node1[3]=node2
return node1
else
node1[4]=node2[3]
node2[3]=node1
return node2
end
end
local function pairing(node,stack)
if node and node[4] then
return pairing(node[4][4],rawset(meld(node,node[4]),4,stack))
else
return stack,node
end
end
local function meld_pairs(stack,node)
if stack then
return meld_pairs(stack[4],meld(stack,node))
else
return node
end
end
local PairingHeap={}
PairingHeap.empty=function(self)
return not self[1]
end
PairingHeap.push=function(self,key,value)
self[1]=meld(self[1],{key,value,false,false})
end
PairingHeap.top=function(self)
return self[1][2]
end
PairingHeap.pop=function(self)
self[1]=meld_pairs(pairing(self[1][3],false))
end
PairingHeap.new=function()
return setmetatable({false},{__index=PairingHeap})
end
----------
local n=io.read("*n")
local a={}
for i=1,n do
a[i]=io.read("*n")
end
local b={}
for i=1,n do
b[i]=io.read("*n")
end
local min=10^20
for i=0,n-1 do
local pq=PairingHeap:new()
for j=1,n do
local A={a[j],0}
pq:push(A[1]*100000+A[2],A)
end
for j=1+i,n+i do
local A=pq:top() pq:pop()
if j>n then
A[1]=A[1]+math.floor(b[j-n]/2)
A[2]=A[2]+1
pq:push(A[1]*100000+A[2],A)
else
A[1]=A[1]+math.floor(b[j]/2)
A[2]=A[2]+1
pq:push(A[1]*100000+A[2],A)
end
end
local max=0
for j=1,n do
local A=pq:top() pq:pop()
max=math.max(A[2],max)
end
min=math.min(max,min)
end
print(string.format("%d",min))