Dim sequenz() As String = {"A", "8", "8", "8", "8", "8", "4"}
 
Dim sequenzlist As List(Of String()) = _
      Permutationen_Ohne_Wiederholung(sequenz)
 
'Aussonderung der doppelten Folgen
sequenzlist = _
      sequenzlist.Distinct(New StringArrayComparer).ToList
 
'n=42  (Es gibt 21 (7 über 5) Anordnungen der 5 8er-Werte
'       Jede dieser Anordnungen kommt 2x vor)
For i As Integer = 0 To sequenzlist.Count - 1
   For k As Integer = 0 To sequenzlist(i).Length - 1
       Console.Write(sequenzlist(i)(k))
   Next k
   Console.WriteLine()
Next i

Private Class StringArrayComparer
   Implements System.Collections.Generic.IEqualityComparer(Of String())
 
 
   Public Function Equals1(x() As String, y() As String) As Boolean _
   Implements IEqualityComparer(Of String()).Equals
 
      If Not x.Length = y.Length Then Return False
 
      For i As Integer = 0 To x.Length - 1
         If Not x(i) = y(i) Then Return False
      Next i
      Return True
   End Function
 
 
   Public Function GetHashCode1(obj() As String) As Integer _
   Implements IEqualityComparer(Of String()).GetHashCode
 
      Dim hc As Integer, vz As Integer = 1
      For i As Integer = 0 To obj.Length - 1
         vz *= -1
         hc += obj(i).GetHashCode * vz
      Next i
      Return hc.GetHashCode
   End Function
End Class