Lua多数元素：摩尔投票的计数抵消

local function majorityByCount(a)
    local cnt = {}
    for _, v in ipairs(a) do
        cnt[v] = (cnt[v] or 0) + 1
        if cnt[v] > #a / 2 then return v end
    end
    return nil
end

local function majorityVote(a)
    local cand, votes = nil, 0
    for _, v in ipairs(a) do
        if votes == 0 then
            cand, votes = v, 1
        elseif v == cand then
            votes = votes + 1
        else
            votes = votes - 1
        end
    end
    local c = 0
    for _, v in ipairs(a) do
        if v == cand then c = c + 1 end
    end
    if c > #a / 2 then return cand end
    return nil
end
local p = getplayerbyname("vote01")
sendmsg(p, 1, tostring(majorityVote({2,2,1,1,1,2,2})))