Registriert seit: 25. Okt 2004
24 Beiträge
Delphi 7 Enterprise
|
Re: Mal wieder ein Sudoku Problem
30. Jun 2006, 07:07
hmm...also die rekursive Lösung würd ich nach folgendem Ansatz machen:
rekursive Funktion mit Parametern Sudoku-Array, Anzahl freie Felder (vorm ersten Aufruf berechnen) und ne bool-Var ob schon gelöst ist
innerhalb der Funktion suchst dir das erste freie Feld, setzt eine 1 ein und überprüfst ob das Ergebnis den Regeln entspricht..wenn ja und freie Felder > 1 dann Selbstaufruf mit dem neuen Array und freie Felder -1, wenn freie Felder = 1 dann ist das Sudoku gelöst.. Danach setzt du 2-9 ein, nach der 9 oder wenn die bool-Var true ist, ist die Funktion beendet.
Wenn der Ansatz allein ned reicht sag bescheid dann gibts bischen Quellcode aus meinem Sudoku-Solver.
|