moonscript/tests/outputs/bubbling.lua

117 lines
2.1 KiB
Lua
Raw Normal View History

2011-10-13 04:03:10 +00:00
local f
f = function(...)
return #{
...
}
end
local dont_bubble
dont_bubble = function()
return (function()
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
for x in (function(...)
return print(...)
end)("hello") do
_accum_0[_len_0] = x
2013-01-12 21:01:34 +00:00
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
return _accum_0
end)()
end
local k = (function()
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
for x in (function(...)
return print(...)
end)("hello") do
_accum_0[_len_0] = x
2013-01-12 21:01:34 +00:00
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
return _accum_0
end)()
local j = (function()
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
for i = 1, 10 do
_accum_0[_len_0] = function(...)
2011-10-13 04:03:10 +00:00
return print(...)
end
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
return _accum_0
end)()
local m
m = function(...)
return (function(...)
2011-10-13 04:03:10 +00:00
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
local _list_0 = {
...
}
for _index_0 = 1, #_list_0 do
local x = _list_0[_index_0]
if f(...) > 4 then
_accum_0[_len_0] = x
2013-01-12 21:01:34 +00:00
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
end
return _accum_0
end)(...)
2011-10-13 04:03:10 +00:00
end
local x = (function(...)
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
local _list_0 = {
...
}
for _index_0 = 1, #_list_0 do
local i = _list_0[_index_0]
_accum_0[_len_0] = i
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
return _accum_0
end)(...)
local y = (function(...)
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
local _list_0 = {
...
}
for _index_0 = 1, #_list_0 do
x = _list_0[_index_0]
_accum_0[_len_0] = x
2013-01-12 21:01:34 +00:00
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
return _accum_0
end)(...)
local z = (function(...)
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
for x in hallo do
if f(...) > 4 then
_accum_0[_len_0] = x
2013-01-12 21:01:34 +00:00
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
end
return _accum_0
end)(...)
local a = (function(...)
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
for i = 1, 10 do
_accum_0[_len_0] = ...
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
return _accum_0
end)(...)
local b = (function()
2011-10-13 04:03:10 +00:00
local _accum_0 = { }
2013-01-12 21:01:34 +00:00
local _len_0 = 1
2011-10-13 04:03:10 +00:00
for i = 1, 10 do
_accum_0[_len_0] = function()
2011-10-13 04:03:10 +00:00
return print(...)
end
_len_0 = _len_0 + 1
2011-10-13 04:03:10 +00:00
end
return _accum_0
end)()