Discussion :

[BBouille]

Tu disais :

Si l'entrée est composée de 6 lettres différentes, et donc une double, il y a moins de 21 entrées de 5 lettres :
Pour EEINRST, on a (Liste n°2) EEINR EEINS EEINT EEIRS EEIRT EEIST EENRS EENRT EENST EERST EINRS EINRT EINST EIRST ENRST INRST et c'est tout.

À part en éliminant les doublons dans une boucle je me demandais si tu avais trouvé ça directement par combinaisons?
Flodelarab : J'ai tout compris excepté le "faire..." Je comprends plus ou moins ce que tu veux dire mais je ne parviens pas à le mettre en musique.
Sinon j'ai toutes les combinaisons et là je vais essayer de les additionner.

[tbc92]

Partant de EEINRST, on a une lettre en double, et 5 simples.
On va faire 3 traitements consécutifs.
- Tous les mots avec 2 E, et donc 3 lettres à choisir parmi les 5 autres. 10 mots en tout.
- Tous les mots avec 1 seul E, et donc 4 lettres à choisir parmi les 5 autres. 5 mots en tout.
- Tous les mots avec aucun E, et donc 5 lettres à choisir parmi les 5 autres. 1 seul mot.

Ou bien, on recherche tous les mots (21 mots), et on lance une procédure 'Supprime-Doublons()'. Je pense qu'une telle procédure existe parmi les milliers de fonctions Python qui existent.

Ou encore, je crois que la notion de dictionnaire permet de faire ceci : tu crées tes 21 mots, tu les ajoutes dans un dictionnaire, et de lui-même, si tu ajoutes 2 fois le même mot, le système ne garde qu'un mot.
A vérifier bien sûr.

[Flodelarab]

Comme tu n'as pas réagi à la réponse cachée, je ne sais pas si tu l'as lue. Je vais traduire le programme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Pour chaque mot du dictionnaire qui fait 7 lettres :
    détruire le tableau t des motifs contenus dans le mot.
    détruire le tableau l des quantités de lettres.
    mettre le motif vide dans le tableau des motifs.
 
    Pour chaque lettre du mot :
        Incrémenter la quantité de la lettre dans le tableau l.
 
     Pour chaque lettre A présente dans l :
         Pour chaque quantité de cette lettre :
            Pour chaque motif m de t :
                Incrémenter dans le tableau des motifs, la quantité de la concaténation de m et A.
 
    Pour chaque motif :
        Si la longueur est 5 :
            Incrémenter la valeur du motif dans le tableau s des solutions.
 
A la fin :
    Pour chaque motif du tableau des solutions :
        Si la quantité du motif est supérieure à la quantité de max :
            Affecter motif à max  
    Afficher le motif max et la quantité de ce motif.

[BBouille]

A y est merci mille fois TCB!
J'ai supprimé les doublons finalement.
Le temps total d'exécution en partant des mots de 7 lettres déjà classées alphabétiquement est d'environ 9 s et encore j'ai fait le programme en RealBasic (Xojo) mais en Delphi ça devrait tourner autour de la seconde.
Il y aurait moyen d'optimiser encore mais comme ce n'est pas le genre de truc qu'on utilise tous les jours ce sera bon comme ça.
Le tiercé gagnant est donc :
AEIRS : 748
AEIRT : 670
AERST : 570
Flodelarab,
Excuse-moi je n'ai pas vu ta réponse cachée. En effet ta solution semble intéressante, je vais la développer pour la comparer à celle de TCB.
Mercie encore à tous.

[Flodelarab]

Honte sur moi. J'ai négligé l'ordre des lettres. Mon résultat est faux. Il faut prendre les lettres dans l'ordre alphabétique et non dans un ordre aléatoire.

aeirs 727
aeirt 654
aerst 548
aesti 517

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$ awk -F '' '/^.{7}$/{delete l; delete t;t[""]++;for (i=1;i<=7;i++) l[$i]++; for (i=1;i<=26;i++) {A=sprintf("%c",i+64); for (j=1;j<=l[A];j++) for (m in t) t[m""A]++;} for (m in t) if (length(m)==5) s[m]++;} END{for (m in s) if (s[m]>s[max]) max=m; print max, s[max];}' mondico
AEIRS 727

Voilà plus sérieux. Et plus juste.

[BBouille]

Tu me rassures, je ne suis pas le seul à me planter
Un moment de honte est vite passé sinon je ne poserais plus de questions ici.
Ton résultat était ou est 727?
Car le top est 748.

[Flodelarab]

Saurais-tu fournir la liste ? Moi, j'ai la liste des 727 mots et je suis sûr qu'elle est juste.
L'échappatoire que je vois est que nous n'avons pas le même dictionnaire. Si le tien est très récent, c'est possible. 2 nouveaux verbes conjugués font la différence.

[BBouille]

Oups au temps pour moi tu as dû partir de l'OS7.
Nous en sommes à l'ODS8.
Je n'ai pas pu joindre le fichier brut en format txt, j'espère que ça aura marché en fichier compressé "rar".
Bien à toi.

[Flodelarab]

J'avais l'ODS5. Dorénavant, nous sommes d'accord. Et les 21 mots qui manquaient ? À la demande générale :

BASSIER
FRESIAS
LARIDES
LATRIES
LIKERAS
NASRIDE
RACISEE
RACISES
RASIERE
ROADIES
SADISER
SEXERAI
SIDECAR
SIGNARE
SPITERA
SPRAIES
TARIERS
TISERAI
TISERAS
UBERISA
ZARBIES

[BBouille]

Je n'oserais pas dire que les grands esprits se rencontrent car je n'ai été qu'aidé mais bravo à toi car je n'ai pas encore compris complètement ton raisonnement, je le creuse.