Lua双向选择排序：每轮双极值的原地交换

local function biSelectSort(a)
    local left, right = 1, #a
    while left < right do
        local minI, maxI = left, left
        for i = left, right do
            if a[i] < a[minI] then minI = i end
            if a[i] > a[maxI] then maxI = i end
        end
        a[left], a[minI] = a[minI], a[left]
        if maxI == left then maxI = minI end
        a[right], a[maxI] = a[maxI], a[right]
        left, right = left + 1, right - 1
    end
    return a
end

local p = getplayerbyname("bisel01")
local a = biSelectSort({5, 2, 8, 1, 9, 3})
sendmsg(p, 1, table.concat(a, ","))