結果
| 問題 |
No.68 よくある棒を切る問題 (2)
|
| コンテスト | |
| ユーザー |
|
| 提出日時 | 2021-08-12 22:37:03 |
| 言語 | Lua (LuaJit 2.1.1734355927) |
| 結果 |
AC
|
| 実行時間 | 476 ms / 5,000 ms |
| コード長 | 1,743 bytes |
| コンパイル時間 | 353 ms |
| コンパイル使用メモリ | 5,376 KB |
| 実行使用メモリ | 16,672 KB |
| 最終ジャッジ日時 | 2024-10-02 04:22:29 |
| 合計ジャッジ時間 | 10,821 ms |
|
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
| ファイルパターン | 結果 |
|---|---|
| other | AC * 10 |
ソースコード
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 = io.read("*n")
local l = {}
local c = {}
for i = 1, n do
l[i] = io.read("*n")
c[i] = 1
end
local hq = Heapq.new(function(x, y) return l[x] / c[x] > l[y] / c[y] end)
for i = 1, n do hq:push(i) end
local lim = 500000
local ret = {}
for i = 1, lim do
local idx = hq:pop()
ret[i] = l[idx] / c[idx]
c[idx] = c[idx] + 1
hq:push(idx)
end
local q = io.read("*n")
for iq = 1, q do
local z = ret[io.read("*n")]
print(string.format("%.10f", z))
end