Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Sudoku-Solver (https://www.delphipraxis.net/66990-sudoku-solver.html)

vlees91 7. Apr 2006 13:47


Sudoku-Solver
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich habe im Oktober 2005 einen Sudoku-Solver erstellt, aber ihn hier nicht gepostet, aus Angst vor Beiträgen, wie: Das gibt es doch schon zig-mal! Ist doch sinnlos...
etc.
aber da ein anderer jetzt das Gleiche gemacht hat, versuche ich es jetzt mit meinem.

Der Unterschied zwischen den Beiden: Meiner löst nach logischen Funktionen (also wie ein Mensch) und der andere ist imho ein "Bruteforce-Solver".

Allerdings kann meins nicht alle Sudoku's lösen, weil die Lösung mit Hilfe der X/Y/XY-Wings nicht implementiert ist.

PHP: http://vlees.vl.funpic.de/sudoku.php?number=1 (number kann verändert werden)
Auf die Zahlen klicken, um sie einzutragen oder doppelt auf ein Feld klicken, um die Zahl mit der Tastatur einzugeben.
Aktualisieren zum Schrittweise lösen.

Delphi: Es sieht zwar zum kotzen aus, aber es erfüllt seinen Zweck.
Nach dem Druck auf RETURN in einem Feld werden die Möglichkeiten der zahlen angezeigt.
Mit ESCAPE wird es schrittweise gelöst.

EDIT: http://vlees.vl.funpic.de/sudoku.php?number=2 ist das mittel-schwere Sudoku von http://sudoku.zeit.de/sudoku/kunden/die_zeit/ von heute, welches das programm schon gelöst hatte bevor alle zahlen eingegeben wurden

vlees91 7. Apr 2006 19:02

Re: Sudoku-Solver
 
SO

Ich habe eben einen Fehler in einer Kontrolle gefunden, die zu viel "aussortierte". Diese Abfrage ist jetzt optimiert und siehe da:
Alle, zuerst nicht lösbaren, schwierigen Sudoku's wurden sofort gelöst!!

Es wäre sehr nett, wenn ihr das ausprobiert.

ACHTUNG: Die neue Version ist im Moment nur als Website vorhanden. Morgen mache ich mich evtl. an der kleinen Änderung in Delphi.

jmit 9. Apr 2006 18:38

Re: Sudoku-Solver
 
Hallo,

Zitat:

Delphi: Es sieht zwar zum kotzen aus, aber es erfüllt seinen Zweck.
Stimmt, kann man aber mit leben.

Zitat:

Nach dem Druck auf RETURN in einem Feld werden die Möglichkeiten der zahlen angezeigt.
Mit ESCAPE wird es schrittweise gelöst.
Das ist ja wohl nicht die komplette Erläuterung des Programms. Nach der Eingabe der Zahlen und drücken der ESCAPE Taste bekommen einige Felder eine farbliche Kennung. Diese beinhaltet wohl die Anzahl der möglichen Zahlen.

Sonst mach aber weiter so.

Gruß Jörg

DevilsCamp 9. Apr 2006 19:50

Re: Sudoku-Solver
 
Die Tab-Order stimmt noch nicht ganz so richtig beim Delphi-Programm

eikeble 10. Apr 2006 12:01

Re: Sudoku-Solver
 
Moin,

ich habe auch einen SuDoKu-solver programmiert, der nach Mechanismen versucht die SuDoKu's zu lösen. Ich finde es deshalb schade, dass du dein Programm nicht sammt Sourcen hier rein stellst, dann könnte man mal die Mechanismen vergleichen und evtl. neue hinzufügen. So kann man ja nur über dein Programm sagen, es hat mein SuDoKu gelöst oder nicht, aber die Mechanismen selbst nicht beurteilen.

Mfg Eike

vlees91 25. Apr 2006 15:28

Re: Sudoku-Solver
 
Zitat:

Zitat von jmit
Das ist ja wohl nicht die komplette Erläuterung des Programms. Nach der Eingabe der Zahlen und drücken der ESCAPE Taste bekommen einige Felder eine farbliche Kennung. Diese beinhaltet wohl die Anzahl der möglichen Zahlen.

Richtig, die farbe bestimmt die anzahl der möglichkeiten, die ins feld passen, aber es löst es auch und die farben sind 1. gräßlich ;) und 2. waren die nur zum debug da ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz