結果

問題 No.2289 順列ソート
コンテスト
ユーザー 👑 obakyan
提出日時 2023-05-05 23:41:03
言語 Lua
(LuaJit 2.1.1734355927)
結果
AC  
実行時間 3 ms / 2,000 ms
コード長 921 bytes
コンパイル時間 85 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-23 12:51:18
合計ジャッジ時間 948 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 21
権限があれば一括ダウンロードができます

ソースコード

diff # 

local UF = {}
UF.create = function(self, n)
  self.parent = {}
  for i = 1, n do
    self.parent[i] = i
  end
end
UF.getroot = function(self, idx)
  local parent = self.parent
  local idx_update = idx
  while parent[idx] ~= idx do
    idx = parent[idx]
  end
  while parent[idx_update] ~= idx do
    parent[idx_update], idx_update = idx, parent[idx_update]
  end
  return idx
end
UF.unite = function(self, a, b)
  local ra = self:getroot(a)
  local rb = self:getroot(b)
  self.parent[b], self.parent[rb] = ra, ra
end
UF.new = function(n)
  local obj = {}
  setmetatable(obj, {__index = UF})
  obj:create(n)
  return obj
end

local n = io.read("*n")
local uf = UF.new(n)
for i = 1, n do
  local a = io.read("*n")
  uf:unite(i, a)
end
local g = {}
for i = 1, n do
  local r = uf:getroot(i)
  if not g[r] then g[r] = 0 end
  g[r] = g[r] + 1
end
local ans = 0
for key, val in pairs(g) do
  ans = ans + val - 1
end
print(ans)
0