【高级技巧】协程调度器：轻量级协程池实现

local pool = { ready = {}, budgetMs = 12 }
local function addTask(name, fn)
    local co = coroutine.create(fn)
    pool.ready[#pool.ready + 1] = { co = co, name = name }
end
local function pump()
    local t0 = os.clock()
    local ran = 0
    while #pool.ready > 0 do
        local task = table.remove(pool.ready, 1)
        local cost0 = os.clock()
        local ok, err = coroutine.resume(task.co)
        ran = ran + 1
        if coroutine.status(task.co) ~= "dead" then
            pool.ready[#pool.ready + 1] = task
        end
        if (os.clock() - t0) * 1000 >= pool.budgetMs then
            break
        end
    end
    return ran
end

addTask("战报归档", function()
    for i = 1, 5000 do
        archiveOne(i)
        coroutine.yield()
    end
end
)
addTask("排名结算", function()
    for i = 1, 800 do
        settleOne(i)
        coroutine.yield()
    end
end
)