Lua循环赛程：轮转法的配对排布

local function roundPair(teams)
    local out = {}
    for i = 1, #teams / 2 do
        out[#out + 1] = teams[i] .. " 对 "
            .. teams[#teams - i + 1]
    end
    return out
end

local function schedule(n)
    local t = {}
    for i = 1, n do t[i] = i end
    local rounds = {}
    for r = 1, n - 1 do
        local pairs = {}
        for i = 1, n / 2 do
            pairs[#pairs + 1] =
                t[i] .. "-" .. t[n - i + 1]
        end
        rounds[#rounds + 1] = table.concat(pairs, "  ")
        t = {t[1], t[n], table.unpack(t, 2, n - 1)}
    end
    return rounds
end
local p = getplayerbyname("sched01")
local rs = schedule(6)
sendmsg(p, 1, rs[1])
sendmsg(p, 1, "共 " .. #rs .. " 轮")