#580925 (Lua) No.1265 Balloon Survival

提出ソース

結果

問題	No.1265 Balloon Survival
ユーザー	👑 obakyan
提出日時	2020-11-17 23:06:57
言語	Lua (LuaJit 2.1.1696795921)
結果	TLE
実行時間	-
コード長	6,422 bytes
コンパイル時間	107 ms
コンパイル使用メモリ	6,816 KB
実行使用メモリ	45,184 KB
最終ジャッジ日時	2024-07-23 08:31:33
合計ジャッジ時間	22,616 ms
ジャッジサーバーID （参考情報）	judge4 / judge1

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	2 ms 6,812 KB
testcase_01	AC	2 ms 6,940 KB
testcase_02	AC	2 ms 6,940 KB
testcase_03	AC	3 ms 6,940 KB
testcase_04	AC	3 ms 6,940 KB
testcase_05	AC	4 ms 6,940 KB
testcase_06	AC	4 ms 6,940 KB
testcase_07	AC	4 ms 6,940 KB
testcase_08	AC	3 ms 6,940 KB
testcase_09	AC	2 ms 6,944 KB
testcase_10	AC	3 ms 6,940 KB
testcase_11	AC	4 ms 6,940 KB
testcase_12	AC	5 ms 6,944 KB
testcase_13	AC	3 ms 6,944 KB
testcase_14	AC	129 ms 8,960 KB
testcase_15	AC	90 ms 8,832 KB
testcase_16	AC	33 ms 6,944 KB
testcase_17	AC	808 ms 44,928 KB
testcase_18	AC	46 ms 6,940 KB
testcase_19	AC	36 ms 6,944 KB
testcase_20	AC	134 ms 8,832 KB
testcase_21	AC	306 ms 13,952 KB
testcase_22	AC	197 ms 14,080 KB
testcase_23	AC	195 ms 14,080 KB
testcase_24	AC	1,964 ms 44,800 KB
testcase_25	AC	1,867 ms 44,800 KB
testcase_26	AC	1,870 ms 44,672 KB
testcase_27	TLE	-
testcase_28	AC	1,959 ms 44,928 KB
testcase_29	AC	1,961 ms 44,672 KB
testcase_30	AC	1,890 ms 44,800 KB
testcase_31	AC	1,935 ms 45,184 KB
testcase_32	AC	1,870 ms 44,672 KB
testcase_33	TLE	-
testcase_34	AC	4 ms 6,940 KB
testcase_35	WA	-

権限があれば一括ダウンロードができます

ソースコード

raw source code

local mma = math.max
local mfl, mce, mmi = math.floor, math.ceil, math.min

local AvlTree = {}
AvlTree.makenode = function(self, val, parent)
  local i = self.box[#self.box]
  if not i then i = #self.v + 1
  else table.remove(self.box)
  end
  self.v[i], self.p[i] = val, parent
  self.lc[i], self.rc[i], self.l[i], self.r[i] = 0, 0, 1, 1
  return i
end
AvlTree.create = function(self, lessthan, n)
  self.lessthan = lessthan
  self.root = 1
  self.box = {}
  for i = n + 1, 2, -1 do table.insert(self.box, i) end
  -- value, leftCount, rightCount, left, right, parent
  self.v, self.lc, self.rc, self.l, self.r, self.p = {}, {}, {}, {}, {}, {}
  for i = 1, n + 1 do
    self.v[i], self.p[i] = 0, 1
    self.lc[i], self.rc[i], self.l[i], self.r[i] = 0, 0, 1, 1
  end
end

AvlTree.clear = function(self)
  self.root = 1
  local np1 = #self.v
  for i = np1, 2, -1 do self.box[np1 - i + 1] = i end
end

AvlTree.recalc = function(self, i)
  local kl, kr = self.l[i], self.r[i]
  if 1 < kl then self.lc[i] = 1 + mma(self.lc[kl], self.rc[kl])
  else self.lc[i] = 0
  end
  if 1 < kr then self.rc[i] = 1 + mma(self.lc[kr], self.rc[kr])
  else self.rc[i] = 0
  end
end
AvlTree.recalcAll = function(self, i)
  while 1 < i do
    self:recalc(i)
    i = self.p[i]
  end
end

AvlTree.rotR = function(self, parent)
  local granp, child = self.p[parent], self.l[parent]
  self.r[child], self.l[parent] = parent, self.r[child]
  self.p[child], self.p[parent] = granp, child
  self.p[self.l[parent]] = parent
  if 1 < granp then
    if self.l[granp] == parent then
      self.l[granp] = child
    else
      self.r[granp] = child
    end
  else
    self.root = child
  end
end

AvlTree.rotL = function(self, parent)
  local granp, child = self.p[parent], self.r[parent]
  self.l[child], self.r[parent] = parent, self.l[child]
  self.p[child], self.p[parent] = granp, child
  self.p[self.r[parent]] = parent
  if 1 < granp then
    if self.r[granp] == parent then
      self.r[granp] = child
    else
      self.l[granp] = child
    end
  else
    self.root = child
  end
end

AvlTree.rotLR = function(self, lparent, rparent)
  local sp, sl, sr = self.p, self.l, self.r
  local granp, d = sp[rparent], sr[lparent]
  sp[lparent], sr[lparent] = d, sl[d]
  sp[rparent], sl[rparent] = d, sr[d]
  sp[sl[d]], sp[sr[d]] = lparent, rparent
  sp[d], sl[d], sr[d] = granp, lparent, rparent
  if 1 < granp then
    if sr[granp] == rparent then sr[granp] = d
    else sl[granp] = d
    end
  else self.root = d
  end
end

AvlTree.rotRL = function(self, rparent, lparent)
  local sp, sl, sr = self.p, self.l, self.r
  local granp, d = sp[lparent], sl[rparent]
  sp[rparent], sl[rparent] = d, sr[d]
  sp[lparent], sr[lparent] = d, sl[d]
  sp[sr[d]], sp[sl[d]] = rparent, lparent
  sp[d], sr[d], sl[d] = granp, rparent, lparent
  if 1 < granp then
    if sl[granp] == lparent then sl[granp] = d
    else sr[granp] = d
    end
  else self.root = d
  end
end

AvlTree.empty = function(self) return self.root <= 1 end

AvlTree.push = function(self, val)
  if self.root <= 1 then self.root = self:makenode(val, 1) return end
  local pos = self.root
  while true do
    if self.lessthan(val, self.v[pos]) then
      if 1 < self.l[pos] then
        pos = self.l[pos]
      else
        self.l[pos] = self:makenode(val, pos)
        pos = self.l[pos]
        break
      end
    else
      if 1 < self.r[pos] then
        pos = self.r[pos]
      else
        self.r[pos] = self:makenode(val, pos)
        pos = self.r[pos]
        break
      end
    end
  end
  while 1 < pos do
    local child, parent = pos, self.p[pos]
    if parent <= 1 then
      break
    end
    self:recalc(parent)
    local lcp_m_rcp = self.lc[parent] - self.rc[parent]
    if lcp_m_rcp % 2 ~= 0 then -- 1 or -1
      pos = parent
    elseif lcp_m_rcp == 2 then
      if self.lc[child] - 1 == self.rc[child] then
        self:rotR(parent)
        self:recalcAll(parent)
      else
        self:rotLR(child, parent)
        self:recalc(child)
        self:recalcAll(parent)
      end
      break
    elseif lcp_m_rcp == -2 then
      if self.rc[child] - 1 == self.lc[child] then
        self:rotL(parent)
        self:recalcAll(parent)
      else
        self:rotRL(child, parent)
        self:recalc(child)
        self:recalcAll(parent)
      end
      break
    else
      break
    end
  end
end

AvlTree.rmsub = function(self, node)
  while 1 < node do
    self:recalc(node)
    if self.lc[node] == self.rc[node] then
      node = self.p[node]
    elseif self.lc[node] + 1 == self.rc[node] then
      self:recalcAll(self.p[node])
      break
    else
      if self.lc[self.r[node]] == self.rc[self.r[node]] then
        self:rotL(node)
        self:recalcAll(node)
        break
      elseif self.lc[self.r[node]] + 1 == self.rc[self.r[node]] then
        local nr = self.r[node]
        self:rotL(node)
        self:recalc(node)
        node = nr
      else
        local nr = self.r[node]
        local nrl = self.l[nr]
        self:rotRL(nr, node)
        self:recalc(nr)
        self:recalc(node)
        node = nrl
      end
    end
  end
end

AvlTree.pop = function(self)
  local node = self.root
  while 1 < self.l[node] do
    node = self.l[node]
  end
  local v = self.v[node]
  local kp = self.p[node]
  self.p[self.r[node]] = kp
  if 1 < kp then
    self.l[kp] = self.r[node]
    self:rmsub(kp)
  else
    self.root = self.r[node]
  end
  table.insert(self.box, node)
  return v
end

AvlTree.new = function(lessthan, n)
  local obj = {}
  setmetatable(obj, {__index = AvlTree})
  obj:create(lessthan, n)
  return obj
end

local n = io.read("*n")

local x, y = {}, {}
for i = 1, n do
  x[i], y[i] = io.read("*n", "*n")
end
if n == 1 then print(0) os.exit() end

local function lensq(i, j)
  return (x[i] - x[j]) * (x[i] - x[j]) + (y[i] - y[j]) * (y[i] - y[j])
end
local e1, e2 = {}, {}
local v = {}
local alive = {}
for i = 1, n do alive[i] = true end

local c = 0

local function lt(a, b)
  return v[a] < v[b]
end
local avl = AvlTree.new(lt, 1)

for i = 1, n - 1 do
  for j = i + 1, n do
    c = c + 1
    e1[c], e2[c] = i, j
    v[c] = lensq(i, j)
    avl:push(c)
  end
end
local ret = 0
for i = 1, c do
  local idx = avl:pop()
  local z1, z2 = e1[idx], e2[idx]
  if z1 == 1 then
    if alive[z2] then
      ret = ret + 1
      alive[z2] = false
    end
  else
    if alive[z1] and alive[z2] then
      alive[z1], alive[z2] = false, false
    end
  end
end
print(ret)

yukicoder

結果

テストケース

ソースコード