Lua幸运数：逐轮删位的幸存者筛选

local function removeEvery(t, step)
    local out = {}
    for i = 1, #t do
        if i % step ~= 0 then
            out[#out + 1] = t[i]
        end
    end
    return out
end

local function lucky(limit)
    local t = {}
    for i = 1, limit do t[i] = i end
    t = removeEvery(t, 2)      -- 先删偶数位
    local k = 2
    while t[k] and t[k] <= #t do
        t = removeEvery(t, t[k])
        k = k + 1
    end
    return t
end
local p = getplayerbyname("lucky01")
sendmsg(p, 1, "100 以内幸存 " .. #lucky(100) .. " 个")