3 local array_mt = { __index = array, __tostring = function (array) return array:concat(", "); end };
4 local function new_array(_, t)
5 return setmetatable(t or {}, array_mt);
8 function array_mt.__add(a1, a2)
9 local res = new_array();
10 return res:append(a1):append(a2);
13 setmetatable(array, { __call = new_array });
15 function array:map(func, t2)
16 local t2 = t2 or array{};
17 for k,v in ipairs(self) do
23 function array:filter(func, t2)
24 local t2 = t2 or array{};
25 for k,v in ipairs(self) do
34 array.push = table.insert;
35 array.pop = table.remove;
36 array.sort = table.sort;
37 array.concat = table.concat;
38 array.length = function (t) return #t; end
40 function array:random()
41 return self[math.random(1,#self)];
44 function array:shuffle()
47 local r = math.random(i,len);
48 self[i], self[r] = self[r], self[i];
53 function array:reverse()
62 function array:append(array)
63 local len,len2 = #self, #array;
65 self[len+i] = array[i];
70 function array.collect(f, s, var)
74 if var == nil then break; end
77 return setmetatable(t, array_mt);