Проверьте два списка, по крайней мере, один общий пункт

Question

Если есть два списка:

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, с точки зрения производительности, чтобы обнаружить, есть ли они один или более общий Предметы? Насколько это возможно, это должно быть общим.

Answer 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) 

Answer 2

В C# (но, вероятно, действует в VB, а)

list1.Intersect(list2).Any()