【高级技巧】Lua并查集：祖玛教主师徒关系的同门判定

local function sameGate(a, b)
    while FA[a] do a = FA[a] end    -- 各自爬链找根，链长就慢
    while FA[b] do b = FA[b] end
    return a == b
end

local FA = {}
local function find(x)
    if not FA[x] then return x end
    FA[x] = find(FA[x])             -- 路径压缩直挂根
    return FA[x]
end
local function union(a, b)
    FA[find(a)] = find(b)           -- 两根合并成同门
end
union("大徒弟", "祖玛教主")
union("二徒弟", "大徒弟")
sendmsg(actor, 1, "同门判定："
    .. tostring(find("二徒弟") == find("祖玛教主")))