Thema: Delphi Sudoku Logik

Einzelnen Beitrag anzeigen

Benutzerbild von JasonDX
JasonDX
(CodeLib-Manager)

Registriert seit: 5. Aug 2004
Ort: München
1.062 Beiträge
 
#4

AW: Sudoku Logik

  Alt 20. Dez 2010, 14:20
Erstmal danke für deine Antwort... aber jetzt geht das Prog leider gar nicht mehr...

Wenn man jetzt auf neues Spiel klickt, dann hängt sich das Programm auf. Im TaskManager steht dann "Keine Rückmeldung". Bin mal mit dem Debugger rübergegangen, da haben auch alle Funktionen richtig funktioniert, aber leider war hing das Prgramm nach 10 min noch...
Ein Fehler im Code ist folgender:
nr:=random(4)+1;
Statt der 4 sollte ein Size hin, ansonsten würde das Generieren nur mit 4x4-Sudokus funktionieren.
Zudem fehlt das Backtracking in deinem Algorithmus. Mal angenommen du willst ein 4x4-Sudoku generieren, und dein Programm ist bei folgendem Sudoku angelangt:
Code:
1 2 3 4
2 3 1 x
Ist soweit alles gültig, bloß wird dein Programm hier für x keine Zahl finden, für die das Sudoku gültig ist. Also sucht der Algorithmus (per Zufall) ewig nach einer Zahl, die es nicht gibt.

Btw:
Leider bekomme ich im Moment nichtmal das generieren eines neuen Sudokus hin...
Das Generieren von Logikpuzzeln ist um Welten schwieriger als das Lösen

greetz
Mike
Mike
Passion is no replacement for reason
  Mit Zitat antworten Zitat