2 つのリストがある場合:
Dim list1 As New List(Of Integer)
list1.AddRange({1, 2, 3})
Dim list2 As New List(Of Integer)
list2.AddRange({1, 4, 5})
パフォーマンスの観点から、VB.NET で 1 つ以上の共通項目があるかどうかを検出するための最良の方法は何ですか? 可能な限り、これは一般的なものにする必要があります。
2 つのリストがある場合:
Dim list1 As New List(Of Integer)
list1.AddRange({1, 2, 3})
Dim list2 As New List(Of Integer)
list2.AddRange({1, 4, 5})
パフォーマンスの観点から、VB.NET で 1 つ以上の共通項目があるかどうかを検出するための最良の方法は何ですか? 可能な限り、これは一般的なものにする必要があります。
<System.Runtime.CompilerServices.Extension()> _
Function ContainsAny(Of T)(col1 As IEnumerable(Of T), col2 As IEnumerable(Of T)) As Boolean
' performance checks
If col1 Is Nothing OrElse col2 Is Nothing Then Return False
If col1 Is col2 Then Return True
' compare items, using the smallest collection
If col1.Count < col2.Count Then
Dim hs1 As New HashSet(Of T)(col1)
For Each v In col2
If hs1.Contains(v) Then Return True
Next
Else
Dim hs2 As New HashSet(Of T)(col2)
For Each v In col1
If hs2.Contains(v) Then Return True
Next
End If
Return False
End Function
コード例:
Dim list1 As New List(Of Integer)
list1.AddRange({1, 2, 3})
Dim list2 As New List(Of Integer)
list2.AddRange({1, 4, 5})
Dim anyMatch As Boolean = list1.ContainsAny(list2)
C# の場合 (ただし、おそらく VB でも有効です)
list1.Intersect(list2).Any()