如何检查两个数组是否包含相同的元素？

Question

有没有简单的方法来检查两个数组是否包含相同的元素 ？

这是我的尝试，如果数组不相同，我返回true ：

arr1 := #(1 3 5 6).
arr2 := #(1 2 3 4).
arr2Copy := arr2 copyFrom: 1 to: arr2 size.
arr1 size ~= arr2 size
    ifTrue: [^ true].
arr1
    do: [:a | (arr2copy removeFirst = a)
        ifFalse: [^ true]].
^false

Answer 1

如果元素应该相同且顺序相同 ，则可以将数组与=进行比较。

如果元素应该相等且顺序无关紧要并且没有预期的重复 ，则使用array1 asSet = arr2 asSet 。

否则你可以查看hasEqualElements：和asBag 。

如果元素应该相同且顺序相同 ，那么这个怎么样？

array1 with: array2 do:
    [ :a :b | a == b ifFalse: [ ^ false ]].
 ^ true

它同时迭代两个数组，比较相同索引处元素的身份。 如果有任何不相同，则返回false。 如果没有遇到不同的元素，则返回true。

Answer 2

作为附带评论，请注意您的代码几乎是正确的。 只是改变：

arr2Copy := arr2 copyFrom: 1 to: arr2 size.  

以下内容：

arr2copy := arr2 asOrderedCollection.  

你的代码会起作用。 原因是你无法从Array removeFirst一个。 这就是您需要OrderedCollection原因。 （请注意， arr2copy的大小写之间存在不匹配）。

当然，这个实现并不像接受的答案那样有效，但我认为也可以给你一些关于你的方法的反馈。