用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, 1, -1 do
        for j = #t2, 1, -1 do
            if t1[i] == t2[j] then
                table.remove(t1, i)     -- 标号2
                table.remove(t2, j)     -- 标号3
            end
        end
    end

    if #t1 ~= 0 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 = {1, 2, 3, 4, 5, 8}
local t2 = {6, 1, 3, 7}
local t3 = {1, 2, 3, 8}  -- 补集专用

-- 并集
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