Rekursion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tobias,
es ist tatsächlich ein Baumstruktur, daher ist Rekursion möglich.
Der Baum hat dann 10 Ebenen:
_ zuerst 10 Möglichkeit die erste Buchstabe auszuwählen (Ebene 1)
_ dann 9 die zweite (Ebene 2)
_ usw
Deine Funktion beinhaltet 2 Parameter:
_ die Liste der verfügbare Buchstaben
_ die Liste allokierte Buchstabe
Die Anzahl der mögliche Kombinationen ist übrigens 10! (10-Fakultät) = 3.628.800 Kombinationen.
Also vergesse nicht den Ausstieg zu ermöglichen, und lege einige DoEvents den Weg entlang, um den Code dazwischen anhalten zu können.

Sub Starte()
Verteile "ABCDEFGHIJ", ""
End Sub
Private Function Verteile(strVerfügbar As String, strAllokiert As String) As Boolean
Dim i
If Len(verfügbar) > 1 Then
For i = 1 To Len(strVerfügbar)
Verteile = Verteile(Replace(strVerfügbar, Mid(strVerfügbar, i, 1), ""),  _
strAllokiert & Mid(strVerfügbar, i, 1))
Next
Else
Verteile = Lösung_auswerten(strAllokiert)
End If
End Function
Private Function Lösung_auswerten(strAllokiert) As Boolean
Dim Lösung As Boolean
Dim arr(9) As String
Dim i
For i = 1 To 10
arr(i - 1) = Mid(strAllokiert, i, 1)
Next
'... Hier findet deine fulminente Lösungsalgorythmus statt
If Lösung Then
MsgBox "lösung gefunden mit" & vbCr & "0123456789" & vbCr & strAllokiert
Lösung_auswerten = True
End If
End Function

Viel Erfolg
Yal

Hallo Tobias,
das Brute Force ist zwar ein Weg, dass über Rekursion-Einsatz führt (dein Ziel) aber eine mathematische Lösung wäre durchaus schöner. Und vielleicht nicht viel komplizierter.
Aus afg - bc = df müsste man
(100)*a + (10)*f + (1)*g + (-10)*b + (1)*c + (-10)*d + (-1)*f (+(0)*e + (0)*h) = 0
also in a;b;c;..;h-Reihenfolge:
[100;-10;1;-10;0;9;1;0] = 0
machen. Dann das gleich für die 2 weiter horizontale und die 3 vertikale. Dann geht es nur darum die Matrix zu reduzieren.
Es wäre noch zu prüfen, ob es lösbar ist, ohne einen feste Startpunkt zu haben.
Mit fd + df = ahg hätte man a = 1, weil a nicht null sein dürfte und 2 Zahlen unter 100 sich nicht über 198 summieren können.
Auch db + c = fa ergibt aus gleichen Grund f = b + 1
Aber wie bekommen wir diese Logik als Code rein? Das wäre mal eine richtig geile harte Nuss.
Um weiter zu kommen, müsste der Beispiel tauglich sein. Schade, dass es nicht so ist (3. horiz. minus 3. vert. führen zu fa = fd, was widerspricht, dass a und d unterschiedlich sein sollen)
Poste mal einen tauglichen Beispiel, dann legen wir los.
VG
Yal

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread