SOLVEUR DE SUDOKU EN VBS (VISUAL BASIC SCRIPT)

Commentaire de KakasEtt le 28/01/2006 17:45:32

Bonjour,

Mon solver trouve des dizaines de milliers de solutions à cette grille incomplete.
En voici simplement 2 :

SOLUTION N° --------- 1
2 1 3 4 8 5 6 7 9
8 4 6 7 1 9 2 5 3
7 5 9 2 6 3 1 4 8
6 2 5 3 7 4 8 9 1
4 8 1 6 9 2 5 3 7
3 9 7 1 5 8 4 2 6
9 6 4 5 3 1 7 8 2
5 7 8 9 2 6 3 1 4
1 3 2 8 4 7 9 6 5

SOLUTION N° --------- 50088
2 1 3 4 8 5 6 7 9
8 4 6 7 1 9 2 5 3
7 5 9 2 6 3 1 4 8
6 3 5 9 7 4 8 2 1
4 2 1 6 5 8 9 3 7
9 7 8 1 3 2 4 6 5
3 6 4 5 9 1 7 8 2
5 9 7 8 2 6 3 1 4
1 8 2 3 4 7 5 9 6
Je ne vois pas ce qui justifie votre commentaire...

Commentaire de KakasEtt le 03/02/2006 17:01:43

Bonjour,

je te remercie tout d'abord pour la super grille ! Jamais vu une grille aussi difficile (pour cet algo)! L'est-elle autant en résolution manuelle ? J'imagine que la difficulté d'une grille se mesure par rapport au type d'algorythme utilisé...

Cependant... Il y a un timer dans le script qui évite les boucles infinies en phase de développement... Il est à 10, en l'augmentant, on trouve la solution !
Script V3 = 230 secondes. J'avoue, c'est long !
Je livre donc également le script V1, qui trouve la solution en 160 secondes (sur ma machine)...

Salut, et bon week-end !

(p.s. je ne tutoie jamais la première fois, pour diverses raisons, entre autre pour éviter de dire n'importe quoi, surtout quand je suis irrité que qq'un aie pu éventuellement trouver une faille à mon pgm !   ;-))

Commentaire de guyvdv le 26/02/2006 14:36:20

Bonjour les joueurs,
J'ai trouvé dommage que le script ete en VBS, difficile a voire ce qu'il ce passe. Alors j'ai reecris le script en vb.net 2005 express
alez voire sur http://vbfrance.com/code.aspx?ID=36268
merci et a bientot
Guy van der Velden

Commentaire de KakasEtt le 27/02/2006 00:41:00

Bonsoir,

Je peux déjà dire que le but de VBS était d'avoir un module unique à lancer sur n'importe quelle machine, sans s'encombrer d'environnement de développement ni d'interfaces quelconques. En VBnet nous avons déjà 6 modules, que je ne suis pas sûr de pouvoir lancer sur mon ordi, sans plus... Je verrai bien.
Quant au "difficile de voir ce qui se passe", j'ai pourtant essayé d'être simple et modulaire, mais je commenterai plus ma prochaine version, c'est entendu !

Bonne soirée ! A bientôt !

Commentaire de KakasEtt le 07/03/2006 21:14:15

Bonsoir Guy,

Sans l'environnement de développement adéquat, je n'ai pas réussi à lancer ta version...
Quant à l'apprentissage de VBS, ce n'est pas autre chose que du Visual Basic, ou du basic tout court, c'est à dire que c'est le même langage, à quelques infimes détails près, que le VB de VisualBasic, que celui utilisé ou utilisable dans les macros de Word, d'Excel... ou en VB.net. Je ne sais pas ce qu'est VB.net, mais en relisant ta version, elle ne diffère que très peu de la mienne... Donc en conclusion, on trouve un peu partout des fichiers d'aide contenant la syntaxe de ce langage. Quant à VBS en particulier, un fichier d'aide est fourni avec Windows, sinon, on doit bien le trouver sur internet...

Voilà... Ce script doit pouvoir tourner sans grosses modifications en tant que macro Word ou Excel ou VB ou VB.net ou... Il faut seulement modifier la lecture et la restitution des données...

A bientôt,
   KakasEtt.

Commentaire de MVI le 08/03/2007 16:24:29

Bonjour,
Le problème de Gagou9 de Janvier ne m'est pas apparu diabolique.
Le solveur que j'ai écrit (sous VBA Excel voir n°41064) l'a résolu en 3s48.
Il doit y avoir des problèmes qui sont adaptés à certains algorithmes et vice versa. Le mien n'a rien de transcendant, il est même plutôt bestial...
Good luck avec la récursivité.
Je suis preneur des bugs et autres problèmes qui ne pourraient pas être résolus afin d'améliorer mon algorithme.

A+

Commentaire de KakasEtt le 08/06/2008 22:09:43

Bonsoir,

Il doit y avoir erreur de copier-coller, car toutes les versions de mes scripts donnent... ZERO solution a ce problème. Pas de bouclage donc.
En effet, dans la PREMIERE COLONNE, donc verticalement et le long du bord gauche, il y a deux fois le chiffre 6 (ligne 3 et 8 sur Grille_A). Même résultat pour Grille_B, bien sûr.

A moins d'avoir la grille sans erreur (mettre des points à la place des espaces, pour éviter de les perdre ?), je ne pourrais pas aider...

Cordialement,
KE