用Lua模拟并行性

我正在尝试使用Lua来原型化一些并行算法。我指的是用纯Lua编写代码，在其中执行测试、调试等操作。当我有信心它可以运行时，我可以将其转换为真正的多线程库，甚至转换为另一种语言（如OpenCL内核）。显然，我不关心原型代码的性能。

我想使用一个在每行中都yield的协程，并加入一些样板代码来随机选择下一个“线程”运行。例如：

local function parallel_simulation(...)

  local function_list = {...}
  local coroutine_list = {}
  local thread_number = #function_list
  for i = 1, thread_number do
    coroutine_list[i] = coroutine.create(function_list[i])
  end

  while 0 < thread_number do

    local current = math.random(1, thread_number)
    local worker = coroutine_list[current]

    coroutine.resume(worker)

    if 'dead' == coroutine.status(worker) then
      thread_number = thread_number - 1
      table.remove(coroutine_list, current)
    end
  end
end

----------------------------------------------------------
-- Usage example

local Y = coroutine.yield
local max = 3
local counter = 0
local retry = 99

local function increment()
  Y() local c = counter
  Y() while max > c do
  Y()   c = counter
  Y()   c = c + 1
  Y()   counter = c
  Y() end
end

for i=1,retry do
  counter = 0
  parallel_simulation(increment, increment)
  if max ~= counter then
    print('Test SUCCESS ! A non-thread-safe algorithm was identified .', i, counter)
    return
  end
end

error('Test FAIL ! The non-thread-safe algorithm was not identified .')

这只是一个想法，任何涉及纯Lua的解决方案都受欢迎！这个解决方案让我非常不舒服，原因是所有的Y()。有没有什么方法可以避免它们？（debug.sethook不允许yield...）

第一次编辑-提供了更有意义的示例

编辑2-希望我清楚地表述了我想要实现的内容