用lua求两个数组的交集、并集和补集。

 -- 克隆
 function Clone(object)
     local lookup_table = { }
     local function _copy(object)
         if type(object) ~= "table" then
             return object
         elseif lookup_table[object] then
             return lookup_table[object]
         end
         local new_table = { }
         lookup_table[object] = new_table
         for key, value in pairs(object) do
             new_table[_copy(key)] = _copy(value)
         end
         return setmetatable(new_table, getmetatable(object))
     end
     return _copy(object)
 end

 -- 合并
 function Merge(...)
     local arrays = { ... }
     local result = {}
     for _,array in ipairs(arrays) do
         for _, v in ipairs(array) do
             table.insert(result, v)
         end
     end

     return result
 end

 -- 交集
 function Intersection(t1, t2)
     local ret = {}
     for k, v1 in pairs(t1) do
         local equal = false
         for k, v2 in pairs(t2) do
             if v1 == v2 then
                 equal = true
                 break
             end
         end
         if equal then
             table.insert(ret, v1)
         end
     end
     return ret
 end

 -- 补集
 function Complement(t1, t2)
     -- 在这个函数调用多次并且是同一个数组时， 如果不写标号1这行， 下边标号2和标号3的元素移除会对传过来的数组有污染。
     local t1, t2 = Clone(t1), Clone(t2) -- 标号1
     for i = #t1, , - do
         for j = #t2, , - do
             if t1[i] == t2[j] then
                 table.remove(t1, i)     -- 标号2
                 table.remove(t2, j)     -- 标号3
             end
         end
     end

     if #t1 ~=  then
         return t1
     else
         return t2
     end
 end

 -- 并集
 function Aggregate(t1, t2)
     local ret = Merge(t1, t2)
     local t = {}
     for _, v1 in pairs(ret) do
         local exist = false
         for _, v2 in pairs(t) do
             if v1 == v2 then
                 exist = true
             end
         end
         if not exist then
             table.insert(t, v1)
         end
     end
     return t
 end

 local t1 = {, , , , , }
 local t2 = {, , , }
 local t3 = {, , , }  -- 补集专用

 -- 并集
 print("-------------并集--------------")
 local agg = Aggregate(t1, t2)
 for k,v in pairs(agg) do
     print(k,v)
 end

 print("-------------分割线--------------")
 print("")

 -- 补集
 print("-------------补集--------------")
 local com = Complement(t1, t3)
 for k,v in pairs(com) do
     print(k,v)
 end

 print("-------------分割线--------------")
 print("")

 -- 交集
 print("-------------交集--------------")
 local inter = Intersection(t1, t2)
 for k,v in pairs(inter) do
     print(k,v)
 end