Lua约瑟夫环：循环报数的出列模拟

local circle = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
for i = 1, 10 do
    local out = (i * 3) % 10        -- 公式硬算，出列序号重复漏人
    circle[out] = nil
end

local q = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
local head = 1
while #q - head >= 1 do             -- 剩两人以上继续
    for _ = 1, 2 do                 -- 报1报2的排到队尾
        q[#q + 1] = q[head]
        head = head + 1
    end
    sendmsg(actor, 1, "出列 " .. q[head])   -- 报3出列
    head = head + 1
end