如何比较数组中的值而不考虑索引顺序

你可以将数组转换为用 项 => true 表示的 _集合_，并使用集合运算：

local set_mt = {}

-- 集合差集 (set1 - set2):
function set_mt.__sub (set1, set2)
    local diff = {}
    for value, _ in pairs (set1) do
        if not set2 [value] then
            diff [value] = true
        end
    end
    return setmetatable (diff, set_mt)
end

-- 集合交集 (set1 ^ set2):
function set_mt.__pow (set1, set2)
    local intersect = {}
    for value, _ in pairs (set1) do
        if set2 [value] then
            intersect [value] = true
        end
    end
    return setmetatable (intersect, set_mt)
    --[[ 也可以这样写：
    return set1 - (set1 - set2)
    --]]
end

-- 集合基数 (#set):
function set_mt.__len (set)
    local len = 0
    for value, _ in pairs (set) do
        len = len + 1
    end
    return len
end

-- 集合相等 (set1 == set2):
function set_mt.__eq  (set1, set2)
    return #(set1 - set2) == 0 and #(set2 - set1) == 0
    --[[ 也可以这样写：
    return #set1 == #set2 and #(set1 ^ set2) == #set1
    --]]
end

--[[ 也可以这样写，虽然这不是任务要求：
    集合并集，作为 __add，
    笛卡尔积，作为 __mul，
    子集，作为 __le，
    序列化，作为 __tostring，
    绝对补集，如果有一个全集，但它会使一切更复杂。
--]]

local function toset (array)
    local set = {}
    for _, value in ipairs (array) do
        set [value] = true
    end
    return setmetatable (set, set_mt)
end

-- 测试:
local array1 = {5,6,7,8,9,4}
local array2 = {3,2,4,6,1}
local array3 = {6,5,8,4,9,7}

local set1, set2, set3 = toset (array1), toset (array2), toset (array3)

local x = #(set2 ^ set1)

if set1 == set2 then
    print 'array1 and array2 matched!'
elseif x >= 2 then
    print ('array2 has ' .. tostring (x) .. ' matches in array1') -- 这将打印出 2 个或更多匹配
else
    print 'No Match!'
end

if set3 == set1 then
    print 'array3 and array1 matched!'
else
    print 'No Match!'
end