[كود] Compare two lists for equality - نسخة قابلة للطباعة

PHP كود :

  Public Function Compare(Of T)(first As IEnumerable(Of T), second As IEnumerable(Of T)) As Boolean
        If second Is Nothing AndAlso first Is Nothing Then
            Return True
        End If
        If second Is Nothing OrElse first Is Nothing Then
            Return False
        End If

        Dim identical As Boolean = (first.Count = second.Count)
        If identical Then
            For Each current As T In second
                If Not first.Contains(current) Then
                    identical = False
                    Exit For
                End If
            Next
        End If

        Return identical
    End Function

PHP كود :

      Dim l1 As New ArrayList
        Dim l2 As New ArrayList

        l1.Add("omar")
        l2.Add("omar")

        l1.Add("ahmed")
        l2.Add("Mohammed")


        l1.Add(10)
        l2.Add(10)

        l1.Add(Color.Black)
        l2.Add(Color.Black)


        If Compare(Of String)(l1.OfType(Of String), l2.OfType(Of String)) Then
            ' do something
            MessageBox.Show("both lists are identical")
        Else
            'do something
            MessageBox.Show("both lists are not identical")
        End If


        If Compare(Of Integer)(l1.OfType(Of Integer), l2.OfType(Of Integer)) Then
            MessageBox.Show("both lists are identical")
        Else
            MessageBox.Show("both lists are not identical")
        End If

        If Compare(Of Color)(l1.OfType(Of Color), l2.OfType(Of Color)) Then

            MessageBox.Show("both lists are identical")
        Else
            MessageBox.Show("both lists are not identical")
        End If