3.lua

local fiber = require('fiber')

local ch = fiber.channel(0)

local function len(tbl)
    local cnt = 0; for _, _ in pairs(tbl) do cnt = cnt + 1 end; return cnt
end

fiber.create(function() while true do print('fiber count:', len(fiber.info())); fiber.sleep(1) end end)

local function closure()
    ch:get(10)
end

for k = 1, 20000 do
    fiber.create(closure)
    fiber.sleep(0.001)
    if k % 1000 == 0 then print('running', k, 'fibers') end
end