2 -- Copyright (C) 2008-2009 Matthew Wild
3 -- Copyright (C) 2008-2009 Waqas Hussain
5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information.
11 local array_mt = { __index = array, __tostring = function (array) return array:concat(", "); end };
12 local function new_array(_, t)
13 return setmetatable(t or {}, array_mt);
16 function array_mt.__add(a1, a2)
17 local res = new_array();
18 return res:append(a1):append(a2);
21 setmetatable(array, { __call = new_array });
23 function array:map(func, t2)
24 local t2 = t2 or array{};
25 for k,v in ipairs(self) do
31 function array:filter(func, t2)
32 local t2 = t2 or array{};
33 for k,v in ipairs(self) do
42 array.push = table.insert;
43 array.pop = table.remove;
44 array.sort = table.sort;
45 array.concat = table.concat;
46 array.length = function (t) return #t; end
48 function array:random()
49 return self[math.random(1,#self)];
52 function array:shuffle()
55 local r = math.random(i,len);
56 self[i], self[r] = self[r], self[i];
61 function array:reverse()
70 function array:append(array)
71 local len,len2 = #self, #array;
73 self[len+i] = array[i];
78 function array.collect(f, s, var)
82 if var == nil then break; end
85 return setmetatable(t, array_mt);