Lua摩尔投票：多数元素的消除判定

local function majority(t)
    local cnt = {}
    for _, v in ipairs(t) do
        cnt[v] = (cnt[v] or 0) + 1
    end
    local best, bv = nil, 0
    for k, c in pairs(cnt) do
        if c > bv then best, bv = k, c end   -- 全量计数占O(n)内存
    end
    return best
end

local function majority(t)
    local cand, cnt = nil, 0
    for _, v in ipairs(t) do
        if cnt == 0 then
            cand, cnt = v, 1        -- 计数归零换候选
        elseif v == cand then
            cnt = cnt + 1
        else
            cnt = cnt - 1           -- 异类对拼消除
        end
    end
    return cand
end
sendmsg(actor, 1, "本队主攻职业 "
    .. majority({"战士", "法师", "战士", "战士"}))