moonscript/spec/outputs/comprehension.lua

local items = {
  1,
  2,
  3,
  4,
  5,
  6
}
local out = (function()
  local _tbl_0 = { }
  for k in items do
    _tbl_0[k] = k * 2
  end
  return _tbl_0
end)()
local x = {
  hello = "world",
  okay = 2323
}
local copy = (function()
  local _tbl_0 = { }
  for k, v in pairs(x) do
    if k ~= "okay" then
      _tbl_0[k] = v
    end
  end
  return _tbl_0
end)()
local _ = (function()
  local _tbl_0 = { }
  for x in yes do
    local _key_0, _val_0 = unpack(x)
    _tbl_0[_key_0] = _val_0
  end
  return _tbl_0
end)()
_ = (function()
  local _tbl_0 = { }
  local _list_0 = yes
  for _index_0 = 1, #_list_0 do
    x = _list_0[_index_0]
    local _key_0, _val_0 = unpack(x)
    _tbl_0[_key_0] = _val_0
  end
  return _tbl_0
end)()
_ = (function()
  local _tbl_0 = { }
  for x in yes do
    local _key_0, _val_0 = xxxx
    _tbl_0[_key_0] = _val_0
  end
  return _tbl_0
end)()
_ = (function()
  local _tbl_0 = { }
  local _list_0 = {
    {
      1,
      2
    },
    {
      3,
      4
    }
  }
  for _index_0 = 1, #_list_0 do
    x = _list_0[_index_0]
    local _key_0, _val_0 = unpack((function()
      local _accum_0 = { }
      local _len_0 = 1
      for i, a in ipairs(x) do
        _accum_0[_len_0] = a * i
        _len_0 = _len_0 + 1
      end
      return _accum_0
    end)())
    _tbl_0[_key_0] = _val_0
  end
  return _tbl_0
end)()
local n1 = { }
local _len_0 = 1
for i = 1, 10 do
  n1[_len_0] = i
  _len_0 = _len_0 + 1
end
local n2 = { }
local _len_1 = 1
for i = 1, 10 do
  if i % 2 == 1 then
    n2[_len_1] = i
    _len_1 = _len_1 + 1
  end
end
local aa = { }
local _len_2 = 1
for x = 1, 10 do
  for y = 5, 14 do
    aa[_len_2] = {
      x,
      y
    }
    _len_2 = _len_2 + 1
  end
end
local bb = { }
local _len_3 = 1
for thing in y do
  for i = 1, 10 do
    bb[_len_3] = y
    _len_3 = _len_3 + 1
  end
end
local cc = { }
local _len_4 = 1
for i = 1, 10 do
  for thing in y do
    cc[_len_4] = y
    _len_4 = _len_4 + 1
  end
end
local dd = { }
local _len_5 = 1
for i = 1, 10 do
  if cool then
    for thing in y do
      if x > 3 then
        if c + 3 then
          dd[_len_5] = y
          _len_5 = _len_5 + 1
        end
      end
    end
  end
end
_ = (function()
  local _tbl_0 = { }
  for i = 1, 10 do
    _tbl_0["hello"] = "world"
  end
  return _tbl_0
end)()
return nil