Sudoku Generator (Anfänge)

[Volker Z.]

Hallo,

vielleicht hast Du es ja schon gefunden. Wenn nicht schau Dir mal die procedure TestValues an. Wenn TryNumber erfüllt ist, wie kann dann die entsprechende Zelle leer sein? Demnach ist die Variable Test ab der zweiten Zeile n-te Spalte False und Dein Programm ruf so lange FillUp(SG,Col,Row) bis es scheppert.

Mach mal ein or draus.

Gruß

[xyss]

Die procedure TestValues soll ja an sich nur für eine spezifische Zelle jede Zahl durchprobieren, wenn die random-Zahl nicht reinpasst. Und daher muss die Zelle ja auch leer sein bevor sie eine Zahl einfüllt (dachte ich mir jedenfalls so). Die FillUp procedure wird ja durch die IsFilled procedure wieder aufgerufen (wenn diese False ergibt). Ich habs mal mit der vorgeschlagenen Änderung versucht, aber leider kommt damit ein anderer Fehler auf. Es kommt zwar kein Stackoverflow mehr, aber dafür wird das Resultat falsch (mit einem or füllt er ja dann eine Zahl ein, wenn entweder die Zelle leer ist, oder die Bedingungen erfüllt sind). Aber das mit dem Stack overflow scheint tatsächlich irgendwie daran zu liegen.

Danke schonmal

[Volker Z.]

Hallo,

in Deiner FillUp-Routine füllst Du das Stringgrid von oben nach unten und von links nach rechts. Dabei ermittelst Du zufällige Werte und prüfst, ob das in die Zeile, Spalte bzw. Block passt. Dieses Vorgehen wird wohl nicht zielführend sein. Beispiel:

Code:

1. Reihe: 6 3 2  4 9 5  7 1 8
2. Reihe: 7 4 5  3 6 8  2 9

Da geht jetzt wohl nur noch SG.Cells[8, 1] = 1, aber das fällt bei der Prüfung durch => FillUp ruft sich solange selbst auf bis der Stackoverflow kommt.

Da hilft wohl nur ein anderer Ansatz (das or hilft leider auch nix).

Gruß

[sx2008]

Zitat von Volker Z.:

Da hilft wohl nur ein anderer Ansatz

Komplettes Sudoku Spielfeld mit ALLEN Zahlen füllen und zwar so dass die Sudoku Regeln erfüllt werden.
Danach zufällig einige Ziffern löschen.

Auf diese Weise kann man dem Spieler später auch die Lösung zeigen, falls das Spiel zu schwer sein sollte.

[Volker Z.]

Hallo,

Lesestoff gibt zum Thema Sudokus generieren / lösen es jede Menge (ein kleiner Auszug):

Sudoku
http://www.planet-source-code.com/vb...=1756&lngWId=7
http://www.entwickler-ecke.de/topic_...l_48160,0.html
und natürlich auch bei
http://www.google.de/search?hl=de&so...aeo4GYBw&gbv=2

Gruß

[xyss]

Ich dachte es würde so funktionieren, dass, wenn alle Testwerte "durchfallen", das heißt, wenn das Programm nicht mehr weiterkommt, es um eine Zelle zurückgeht und dort eine neue Ziffer einfügt.

Daher auch dieser Teil hier

Code:

    if not Test then
       Col:=Col-1

da sollte er doch theoretisch wieder eine Zelle zurückgehen, und die von neuem mit einer Zufallszahl füllen, oder nicht?

[fkerber]

Hi,

ohne jetzt den Code näher angeschaut zu haben:
Wenn für das vorherige Feld nur eine Wahl möglich war, dann wird er doch wieder gleich wählen und du hast das gleich Problem ein Feld weiter nochmal, oder?


Viele Grüße,
Frederic