Solveur de sudoku en vbs (visual basic script)

Soyez le premier à donner votre avis sur cette source.

Vue 16 894 fois - Téléchargée 2 565 fois

Description

Trouve la solution de la plupart des grilles (même les VERY HARD du Times) en une fraction de seconde.
Analyse récursive : on teste toutes les cases vides avec les valeurs de 1 à n (normalement n=9)...

Possibilité de recherche exhaustive. La version 4.0-X Couvre plusieurs tailles de grilles (jusqu'à 5*5 tel quel, et jusqu'à 64*64) en adaptant le script.
VBS est indépendant de tout environnement. Facilement réutilisable dans VB ou ailleurs.
Mode d'emploi et exemples fournis.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

KakasEtt
Messages postés
9
Date d'inscription
mardi 3 janvier 2006
Statut
Membre
Dernière intervention
14 juin 2008
-
Effectivement très curieux !
Il se met à boucler... dans un cas et pas dans l'autre...

Cordialement
KE
cs_bayosky
Messages postés
17
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
23 juillet 2007
-
bonne remarque ...
voici la grille ...

5x234xxxx
xx456x2x7
x6xxx7x84
12x7x4x9x
98xxxx4x1
xx6x1287x
x314xx9xx
6x5x31x4x
7xxxx53x6

Amicalement,

HB
KakasEtt
Messages postés
9
Date d'inscription
mardi 3 janvier 2006
Statut
Membre
Dernière intervention
14 juin 2008
-
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
cs_bayosky
Messages postés
17
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
23 juillet 2007
-
Bonsoir,

Je suis désolé mais j'aimerais savoir pourquoi la grille_A suivante
provoque un bug :
Quand on ajoute la ligne pour chercher toutes les solutions
le script boucle et propose toujours la même ...

C'est d'autant plus bizarre que si l'on envoie les trois première ligne à la fin ( voir grille_B)
le script fonctionne correctement...

----Grille_A------
5 234
456 2 7
6 7 84
12 7 4 9
98 4 1
6 1287
314 9
6 5 31 4
7 53 6
----Grille_B------
12 7 4 9
98 4 1
6 1287
314 9
6 5 31 4
7 53 6
5 234
456 2 7
6 7 84
--------------
Cordialement,
HB
cs_MVI
Messages postés
3
Date d'inscription
vendredi 23 mai 2003
Statut
Membre
Dernière intervention
6 février 2008
-
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+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.