[Défi] Le Défi Delphi n°5 : Le Sudoku solver

Merci Requin85 j'ai adopté la même solution avec 81 labels
Mick605 je ne veux pas vendre la peau de l'ours mais est-ce que tu peuix par exemple pour chaque cellule avoir un Hint ou une police differente(commode pour les révélés)

La différence entre une grille de 81 et de 9*9
Comme l'a dit requin tu peux te servir du tag pour avoir directement le numéro alors qu'autrement c'est
(y-1)*9 + x. La honte de l'optimiseur :D
Alors ce Brut force ca avance?

Félix :
je repars sur un soldeur logique et je vais explorer ton idée il est plus que probable qu'elle puisse servir. Il est clair que pour éliminer des candidats
elle a sa place
Une observation dans le même sens: tu ne retrouves jamais un trio de chiffres dans un SUDOKU Dans un carre latin oui dans un sodoku non
Et si cela arrive c'est tellement rare que l'on peut systematiser(loi des grands nombres)

Boris

Citation:

---

Félix :
je repars sur un soldeur logique et je vais explorer ton idée il est plus que probable qu'elle puisse servir. Il est clair que pour éliminer des candidats
elle a sa place

---

Avec plaisir, bon courage.
C'est cadeau, pour celui qui s'y intéresse...
Tiens moi au courant de ce que ça donne.

Citation:

---

Envoyé par Félix Guillemot

lorsque j'ai le choix entre deux lignes et que le premier choix entraine un élognement de 2 et l'autre de 4, il y a à mon avis plus de probabilité pour que le 4 l'emporte

---

Cette affirmation n'est basée sur rien de concret et pour moi il serait hasardeux de penser qu'un éloignement considéré isolément a plus de probabilité d'être 4 plutôt que 2
En revanche, j'observe, pour des régions contigües, que la somme des éloignements des 9 valeurs est toujours 36 (normal, c'est 9 fois l'éloignement moyen 4)
A mon avis, toutes les combinaisons d'éloignements sont possibles, à condition de retrouver un total de 36

Mais ne nous méprenons pas !
Si le post de FullSpeed t'a apporté un "soutien", le mien n'avait pas pour but de t'enfoncer
Je donne juste un avis sur ta méthode... il n'engage que moi
L'intérêt c'est la démarche intellectuelle, pas de dire "j'ai raison" ou "tu as tort"
Pour moi, dire "je déduit de la théorie des éloignements que telle ou telle valeur peut ou ne peut pas être dans cette case" est la même chose que "telle ou telle valeur peut ou ne peut pas être dans cette case, parce que la case contient ou non le candidat"

Citation:

---

Envoyé par OutOfRange

Cette affirmation n'est basée sur rien de concret et pour moi il serait hasardeux de penser qu'un éloignement considéré isolément a plus de probabilité d'être 4 plutôt que 2
En revanche, j'observe, pour des régions contigües, que la somme des éloignements des 9 valeurs est toujours 36 (normal, c'est 9 fois l'éloignement moyen 4)
A mon avis, toutes les combinaisons d'éloignements sont possibles, à condition de retrouver un total de 36

Mais ne nous méprenons pas !
Si le post de FullSpeed t'a apporté un "soutien", le mien n'avait pas pour but de t'enfoncer
Je donne juste un avis sur ta méthode... il n'engage que moi
L'intérêt c'est la démarche intellectuelle, pas de dire "j'ai raison" ou "tu as tort"
Pour moi, dire "je déduit de la théorie des éloignements que telle ou telle valeur peut ou ne peut pas être dans cette case" est la même chose que "telle ou telle valeur peut ou ne peut pas être dans cette case, parce que la case contient ou non le candidat"

---

J'aurais pas mieux dit moi meme :mrgreen: ! Tu penses exactement comme moi ;)

Citation:

---

Envoyé par FullSpeed

Mick605 je ne veux pas vendre la peau de l'ours mais est-ce que tu peuix par exemple pour chaque cellule avoir un Hint ou une police differente(commode pour les révélés)

---

En cherchant un peu, oui !

Citation:

---

Envoyé par FullSpeed

Alors ce Brut force ca avance?

---

Pas plus que le dernier post, je suis toujours avec mes 50 lignes ... Mais c'est pas du tout ma préoccupation premiere : Je suis en train de réécrire intégralement mon code pour le rendre mieux, donc j'ai pas mal de boulot !


Edit : 200 eme message !

Voila mon problème

Dans mon application j'utilise un SOURCE PASCAL
dont je ne suis pas l'auteur

Ce source patch directement le move du système pour l'application
Cela me permet d'utiliser des routines plus rtapides pour les PStrcopy et
autres =

Si j'enlève ce source je remplace juste les move de mon code par un call a une routine spécifique
J'invite d'ailleurs les autres concurrents à s'en servir si les
arbitres l'autorise. :D

Boris

Et bien je rappelle que selon les règles du défi :

Citation:

---

"l'utilisation de composantes ou bibliothèques autres que celles fournies en standard par CodeGear sont interdites, qu'elles soient commerciales, freewares, open-source etc. ..."

---

Ca veut dire qu'il est interdit de faire appel à des composants tiers, ou d'une façon générale : Il est interdit d'utiliser du code dont on n'est pas l'auteur !
Sauf si ce code fait parti des librairies standards livrées avec Delphi !

Merci c'est clair
Je retire

Néanmoins je conseille aux utilisateurs de delphi , hors defi, d'utiliser ce source: l'emploi est très simple et les routines vont parfois 3 fois plus vite que celle de Borland (D6)
Borus

Dis, Franck, tu me met le doute : on a le droit d'utiliser les FAQ ?

Edit : Celle de Developpez.com bien sur :ccool:

Citation:

---

on a le droit d'utiliser les FAQ ?

---

Bien sûr (à condition que ce soit la FAQ de Dvp :mrgreen:).

Les FAQ sont surtout des exemples de comment faire.
La meilleure façon d'utilser une FAQ c'est de chercher ton problème, de voir comment il est résolu, de comprendre les explications et d'adapter la technique qui est présentée en fonction de ton besoin.

Evidemment, si tu te contente de faire un copier/coller du code, c'est moins intelligent...
Mais de toute façon je ne vois pas comment on pourrait faire la chasse au copier/coller de FAQ, au copier/coller remis en forme sans rien comprendre au contenu. Ni comment faire la différence entre un bête copier/coller et deux lignes de code écrites à l'identiques sans même savoir qu'il y a la même chose dans la FAQ !

Donc oui, bien sûr, on peut utiliser la FAQ !

Je jne suis pas res a l'aise avec les point

Code:

---

1 2 3 4 5 6 7 8 9 10 11

P : array[1..5] of pointer S1,s2,s3,s4,s5: string[5]   begin S3:='54546': p[1]:=@S1; p[2]:=@S3; p[3]:=@S5; p[4]:=@S4; p[5]:=@S2;

---

Maintenant je cherche a accéder a S3[2] ici 4 en ayant P
Et la je cale sur l'emplacement du ^ et autres plaisirs des pointeurs
qui peut m'aider?
Boris

Euh ... Je viens juste de commencer avec les pointeurs, et c'est impossible de déréferencer un pointeur non typé. En gros :

Code:

---

1 2 3 4 5

var P : pointer   ...   P^ ---> erreur

---

ton P doit etre par exemple un ^integer (pointeur sur integer) pour pouvoir le déréférencer.

En fait, tu peux faire ce que tu veux avec un pointeur non typé. C'est tout l'intérêt d'un pointeur non typé.
Il faut juste savoir lui parler :D !

En fait, lorsque tu déréférences le pointeur, il faut faire un cast du résultat.
Par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var p : pointer; s : string; c : char; begin s := 'Ma chaîne'; p := @s[2]; c := char(p^);   // Et on peut aussi faire : cardinal(p) := cardinal(p) + 2; c := char(p^);

---

Ca permet notamment d'utiliser l'arithmétique des pointeurs qui n'existaient pas en Delphi avant D2009.

A ok ! Je suis encore débutant dans ce domaine ;)

Mais dans son cas, il suffit pas de définir son pointeur comme un PChar ??

Je pense que c'était la syntaxe de ceci qui me manquait

Citation:

---

c := char(p^);

---

le cast sur le conenu du pointer

Merci

Mick pour le P char c'était juste pour l'exemple mais tu as raison
Frank : je vais faire u n tour sur nos multitreads.

J'aurais besoin de dclarer uyne constante mais d'u type personnel
Pour l'instant je fais

Code:

---

1 2 3

Const Vide='_______';

---

et il définit Vide comme etant un string
mais je voudrais que vide soit une Arras of byte

Code:

---

1 2	TPerso: array[0..9] of byte;

---

et donc que vide soit du Type TPerso

On ne peut a priori pas caster une variable alors comment faire?
Boris

Regarde de ce coté a mon avis :

http://delphi.about.com/od/adptips20...onst_array.htm

Merci
comme les initialisations.
Pourquoi chercher compliqué
Boris

Désolé, je ne suis plus la conversation plus de 10 jours, je viens juste de me remettre au développement de mon Solver, j'ai donc passé une petite heure à ajouter un peu de logique dans du bourrin

Code:

---

1 2 3 4 5 6 7

1ere : 4.3 ms -> 2.8 ms 2eme : 9.4 ms -> 4.1 ms 3eme : 1.4 ms -> 0.8 ms 4eme : 3.3 ms -> 2.0 ms (AI Escargot) 5eme : 92.2 ms -> 65.4 ms (Easter Monster) 1ère Grille 17 de FullSpeed : 4 612 ms -> 3 396 ms Dernière Grille 17 de FullSpeed :13.9 ms -> 9.9 ms

---

Citation:

---

Envoyé par ShaiLeTroll

Désolé, je ne suis plus la conversation plus de 10 jours, je viens juste de me remettre au développement de mon Solver, j'ai donc passé une petite heure à ajouter un peu de logique dans du bourrin

Code:

---

1 2 3 4 5 6 7

1ere : 4.3 ms -> 2.8 ms 2eme : 9.4 ms -> 4.1 ms 3eme : 1.4 ms -> 0.8 ms 4eme : 3.3 ms -> 2.0 ms (AI Escargot) 5eme : 92.2 ms -> 65.4 ms (Easter Monster) 1ère Grille 17 de FullSpeed : 4 612 ms -> 3 396 ms Dernière Grille 17 de FullSpeed :13.9 ms -> 9.9 ms

---

---

L'évolution de tes temps m'étonnera toujours ;) Elle est coriace cette 1ere grille de FullSpeed !!

Edit : Petite question ... J'aimerais savoir si un ensemble (du genre [1,5,6]) appartient a un de ces ensembles : [1,4,7] ou [2,5,8] ou [3,6,9]

Donc je me demandais si il était possible de faire par exemple : [0..2]*3 pour avoir [0,3,6] (bien sur, erreur de compil). Et si il y a un tuto bien expliqué sur les ensembles, je suis preneur (j'en ai pas trouvé regroupant tout).

Citation:

---

Edit : Petite question ... J'aimerais savoir si un ensemble (du genre [1,5,6]) appartient a un de ces ensembles : [1,4,7] ou [2,5,8] ou [3,6,9]

---

Tu veux dire quoi? Est qu'il y a une iu plusieurs valeurs en intersection (commune)


Peux tu stp reposté ces grilles qui posent tant de probleme
a la logique? (Easter Monster)


J'ai mis mon solveur logique en attente: je n'arriverais pas a rattraper mon retard. J'attends d'avoir vos copies et je repartirai de celle qui me semblera la plus facile a adapter à mes idées (et celles de SX)

Boris