Lua下一个排列：字典序的从右翻起

local function swapPivot(t)
    local i = #t - 1
    while i >= 1 and t[i] >= t[i + 1] do
        i = i - 1
    end
    if i == 0 then return false end
    local j = #t
    while t[j] <= t[i] do j = j - 1 end
    t[i], t[j] = t[j], t[i]
    return true
end

local function nextPerm(t)
    local i = #t - 1
    while i >= 1 and t[i] >= t[i + 1] do i = i - 1 end
    if i >= 1 then
        local j = #t
        while t[j] <= t[i] do j = j - 1 end
        t[i], t[j] = t[j], t[i]
    end
    for k = i + 1, math.floor((i + #t) / 2) do
        local m = #t + i + 1 - k
        t[k], t[m] = t[m], t[k]
    end
    return t
end
local p = getplayerbyname("perm01")
sendmsg(p, 1, table.concat(nextPerm({2, 3, 1}), ""))