Lua快速选择：第K小元素的分区求解

local function kth(t, k)
    table.sort(t)                   -- 全量排序，nlogn 浪费
    return t[k]
end

local function kth(t, lo, hi, k)
    if lo == hi then return t[lo] end
    local p, store = t[hi], lo
    for j = lo, hi - 1 do
        if t[j] < p then
            t[j], t[store] = t[store], t[j]
            store = store + 1
        end
    end
    t[store], t[hi] = t[hi], t[store]
    if k == store then return t[store]
    elseif k < store then return kth(t, lo, store - 1, k)
    else return kth(t, store + 1, hi, k) end
end
sendmsg(actor, 1, "第3小血量 "
    .. kth({900, 100, 500, 300}, 1, 4, 3))