moonscript/spec/outputs/comprehension.lua

local items = {
  1,
  2,
  3,
  4,
  5,
  6
}
local out
do
  local _tbl_0 = { }
  for k in items do
    _tbl_0[k] = k * 2
  end
  out = _tbl_0
end
local x = {
  hello = "world",
  okay = 2323
}
local copy
do
  local _tbl_0 = { }
  for k, v in pairs(x) do
    if k ~= "okay" then
      _tbl_0[k] = v
    end
  end
  copy = _tbl_0
end
local _
do
  local _tbl_0 = { }
  for x in yes do
    local _key_0, _val_0 = unpack(x)
    _tbl_0[_key_0] = _val_0
  end
  _ = _tbl_0
end
do
  local _tbl_0 = { }
  local _list_0 = yes
  for _index_0 = 1, #_list_0 do
    local x = _list_0[_index_0]
    local _key_0, _val_0 = unpack(x)
    _tbl_0[_key_0] = _val_0
  end
  _ = _tbl_0
end
do
  local _tbl_0 = { }
  for x in yes do
    local _key_0, _val_0 = xxxx
    _tbl_0[_key_0] = _val_0
  end
  _ = _tbl_0
end
do
  local _tbl_0 = { }
  local _list_0 = {
    {
      1,
      2
    },
    {
      3,
      4
    }
  }
  for _index_0 = 1, #_list_0 do
    local 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
  _ = _tbl_0
end
local n1
do
  local _accum_0 = { }
  local _len_0 = 1
  for i = 1, 10 do
    _accum_0[_len_0] = i
    _len_0 = _len_0 + 1
  end
  n1 = _accum_0
end
local n2
do
  local _accum_0 = { }
  local _len_0 = 1
  for i = 1, 10 do
    if i % 2 == 1 then
      _accum_0[_len_0] = i
      _len_0 = _len_0 + 1
    end
  end
  n2 = _accum_0
end
local aa
do
  local _accum_0 = { }
  local _len_0 = 1
  for x = 1, 10 do
    for y = 5, 14 do
      _accum_0[_len_0] = {
        x,
        y
      }
      _len_0 = _len_0 + 1
    end
  end
  aa = _accum_0
end
local bb
do
  local _accum_0 = { }
  local _len_0 = 1
  for thing in y do
    for i = 1, 10 do
      _accum_0[_len_0] = y
      _len_0 = _len_0 + 1
    end
  end
  bb = _accum_0
end
local cc
do
  local _accum_0 = { }
  local _len_0 = 1
  for i = 1, 10 do
    for thing in y do
      _accum_0[_len_0] = y
      _len_0 = _len_0 + 1
    end
  end
  cc = _accum_0
end
local dd
do
  local _accum_0 = { }
  local _len_0 = 1
  for i = 1, 10 do
    if cool then
      for thing in y do
        if x > 3 then
          if c + 3 then
            _accum_0[_len_0] = y
            _len_0 = _len_0 + 1
          end
        end
      end
    end
  end
  dd = _accum_0
end
do
  local _tbl_0 = { }
  for i = 1, 10 do
    _tbl_0["hello"] = "world"
  end
  _ = _tbl_0
end
local j
do
  local _accum_0 = { }
  local _len_0 = 1
  for _des_0 in things do
    local a, b, c
    a, b, c = _des_0[1], _des_0[2], _des_0[3]
    _accum_0[_len_0] = a
    _len_0 = _len_0 + 1
  end
  j = _accum_0
end
local k
do
  local _accum_0 = { }
  local _len_0 = 1
  local _list_0 = things
  for _index_0 = 1, #_list_0 do
    local _des_0 = _list_0[_index_0]
    local a, b, c
    a, b, c = _des_0[1], _des_0[2], _des_0[3]
    _accum_0[_len_0] = a
    _len_0 = _len_0 + 1
  end
  k = _accum_0
end
local i
do
  local _accum_0 = { }
  local _len_0 = 1
  local _list_0 = things
  for _index_0 = 1, #_list_0 do
    local _des_0 = _list_0[_index_0]
    local hello, world
    hello, world = _des_0.hello, _des_0.world
    _accum_0[_len_0] = hello
    _len_0 = _len_0 + 1
  end
  i = _accum_0
end
local hj
do
  local _tbl_0 = { }
  for _des_0 in things do
    local a, b, c
    a, b, c = _des_0[1], _des_0[2], _des_0[3]
    _tbl_0[a] = c
  end
  hj = _tbl_0
end
local hk
do
  local _tbl_0 = { }
  local _list_0 = things
  for _index_0 = 1, #_list_0 do
    local _des_0 = _list_0[_index_0]
    local a, b, c
    a, b, c = _des_0[1], _des_0[2], _des_0[3]
    _tbl_0[a] = c
  end
  hk = _tbl_0
end
local hi
do
  local _tbl_0 = { }
  local _list_0 = things
  for _index_0 = 1, #_list_0 do
    local _des_0 = _list_0[_index_0]
    local hello, world
    hello, world = _des_0.hello, _des_0.world
    _tbl_0[hello] = world
  end
  hi = _tbl_0
end
for _des_0 in things do
  local a, b, c
  a, b, c = _des_0[1], _des_0[2], _des_0[3]
  ok(a, b, c)
end
local _max_0 = 3 + 4
for _index_0 = 1 + 2, _max_0 < 0 and #items + _max_0 or _max_0 do
  local item = items[_index_0]
  _ = item
end
local _max_1 = 2 - thing[4]
for _index_0 = hello() * 4, _max_1 < 0 and #items + _max_1 or _max_1 do
  local item = items[_index_0]
  _ = item
end
return nil