Feedback

Permutation nachweisen

VB - Klemens Nanni März 11, 2010
2 Ratings 4/5

Sprache: VB

Auf diese Weise lässt sich überprüfen, ob [b]a[/b] eine Permutation von [b]b[/b] ist. http://de.wikipedia.org/wiki/Permutation 
Function is_perm(ByVal a As String, ByVal b As String) As Boolean
    If a.Length <> b.Length Then Return False

    Dim ax, bx As Byte
    For Each c In a
        ax += CByte(Val(c))
    Next

    For Each c In b
        bx += CByte(Val(c))
    Next

    If ax <> bx Then Return False

    Dim al, bl As New ArrayList
    For Each c In a
        al.Add(c)
    Next
    al.Sort()

    For Each c In b
        bl.Add(c)
    Next
    bl.Sort()

    For x As Byte = 0 To al.Count - 1
        If al(x) <> bl(x) Then Return False
    Next

    Return True
End Function
Function is_perm(ByVal a As String, ByVal b As String) As Boolean
    If a.Length <> b.Length Then Return False

    Dim ax, bx As Byte
    For Each c In a
        ax += CByte(Val(c))
    Next

    For Each c In b
        bx += CByte(Val(c))
    Next

    If ax <> bx Then Return False

    Dim al, bl As New ArrayList
    For Each c In a
        al.Add(c)
    Next
    al.Sort()

    For Each c In b
        bl.Add(c)
    Next
    bl.Sort()

    For x As Byte = 0 To al.Count - 1
        If al(x) <> bl(x) Then Return False
    Next

    Return True
End Function
Abgelegt unter Arraylist compare Mathe number Permutation proof prüfen String vergleichen zahlen

Alte URL: /snippet/permutation-nachweisen/1348

6 Kommentare

  1. Durch die Ergänzung in Zeile 8-13 wurde die Rechenzeit knapp halbiert. Denn stimmt die Quersumme nicht überein, brauchen wir gar nicht mit Listen arbeiten.

  2. Hallo. Für übliche Wörter (<16 Zeichen) ist die Methode mit der Ergänzung aber sehr viel langsamer als ohne. Mit welchen Daten hast du das denn getestet?

  4. Ja, da ich soetwas überwiegend für mathematische Dinge verwende, habe ich an die Anwendung auf Zeichketten weniger gedacht. Ich werde prüfen, ob es dadurch langsamer wird. Wenn ja, wird’s verbessert.

  5. Ich denke aber nicht, dass man mehrere Tausend Permuationen von extrem hohen Zahlen bzw. Zeichenketten mit vielen Zeichen berechnen muss. Bei den einigen Millisekunden kommt es da auch nicht drauf an. Bei 2 Methoden, die ich getestet habe gab es in den niedrigen Bereichen kaum Unterschiede und bei Zeichenketten mit 1000 Zeichen Unterschiede von 100 Millisekunden. Aber wer prüft so etwas auf Permutation?

  6. Du hast Recht, sowetwas ist eher unüblich. Ich bin aber jemand, der immer versucht, den bestmöglichen Weg zu finden.