Discussion :

[Invité]

Bonjour,

j'ai réalisé un petit prog lua pour le classic jeu du mot le plus long.

Tirage de 9 lettres aléatoirement à partir d'un fichier voyelle et d'un fichier consonne
Recherche de résultats possibles ( de 9 lettres à 2 lettres ) dans un fichier dictionnaire.

Avant de faire le tri, tous les mots du dictionnaire sont stockés dans un tableau puis les lettres de chaque mot sont classées par ordre alphabétique. La même chose est réalisée avec les lettres tirées aléatoirement.
Ensuite comparaison des lettres tirées au sort et triées alphabétiquement avec les mots du tableau de dico triés alphabétiquement

quand il y a correspondance, l'index du tableau dico correspondra à la ligne du nom dans le fichier dico.

Mon souci est que toutes les solutions ne sont pas trouvées à chaque fois : après vérification dans le fichier dictionnaire.

Mon tri est il correct ?
Le problème peut il venir du fichier dico : ce fichier est simplement le fichier de debian dans

Code :

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

/usr/share/dict/

pour lequel j'ai passé plusieurs commandes sed

Code :

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

1
2
3
sed '/-/d' fichier.txt > fichier_sortie.tx
sed '/,/d' fichier.txt > fichier_sortie.tx
sed 'y/àâéèêëîïôöùûüç/aaeeeeiioouuuc/' fichier.txt > fichier_sortie.txt

ci-joint mon prog au format zip avec le fichier dico trié
Pièce jointe 520011

quelqu'un aurait une idée peut être ?

[bistouille]

Salut.

J'ai testé ton script, et c'est vraiment très lent, c'est normal au vu du nombre d'opérations de tris à faire sur pratiquement 340 000 mots.
Il n'est donc pas envisageable de persévérer ainsi. Je n'ai donc pas regardé ce qui clochait dans ton script.

Mais pour déboguer, as-tu testé si tu détectes bien tous les mots avec des prints ? Histoire de bien vérifier que ce n'est pas à l'insertion des mots dans les tables que ça déconne (écrasement de valeurs) plutôt qu'aux détections dans le fichier.

Je te propose une meilleure solution et sans besoin de trier, pas sûr que ce soit bien optimal, l'unique fois où j'ai fait du lua, c'était pour le modding d'un jeu, et ça fait pas mal de temps.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
function string.to_list(s)
    -- Convertit une chaîne en table
    list = {}
    for i = 1, #s do
        list[i] = s:sub(i, i)
    end
    return list
end
 
 
function table.find(tab, element)
    -- Retourne la position d'un élément dans
    -- la table ou nil si non trouvé
    for i, n in ipairs(tab) do
        if n == element then
            return i
        end
    end
    return nil
end
 
 
local function nombre_concordances(mot, lettres)
    -- Retourne le nombre de concordances entre le mot et lettres
    liste_lettres = string.to_list(lettres)
    nc = 0
    for i = 1, string.len(mot) do
        car = string.sub(mot, i, i)
        pos = table.find(liste_lettres, car)
        if pos ~= nil then
            table.remove(liste_lettres, pos)
            nc = nc + 1
        end
    end
    return nc
end
 
 
local function resultats(fichier, lettres)
    -- Construit et retourne un array avec pour clef la longueur des
    -- mots et valeur une table des mots
    len_lettres = string.len(lettres)
    occurences = {}
    for mot in io.lines(fichier) do
        len_mot = string.len(mot)
        if len_mot < 2 or len_mot > len_lettres then
            goto continue
        end
        nc = nombre_concordances(mot, lettres)
        if nc ~= len_mot then
            goto continue
        end
        tab_mot = occurences[nc]
        if tab_mot == nil then
            tab_mot = {}
            occurences[nc] = tab_mot
        end
        table.insert(tab_mot, mot)
        ::continue::
    end
    return occurences
end
 
 
local function afficher_resultats(fichier, lettres)
    res = resultats(fichier, lettres)
    len_max = 0
    for i, _ in pairs(res) do
        if i > len_max then
            len_max = i
        end
    end
 
    for _, mot in pairs(res[len_max]) do
        print(mot)
    end
end
 
afficher_resultats("french", "vlrftioya")

[Invité]

bonjour,

oui j'ai testé avec des "print" et compté le nombre de mot. Tous les mots sont bien entrés dans le tableau de tri ! je ne comprends pas pourquoi cela ne trouve pas toujours les mots !

je vais testé ton script, merci

a bientôt

[Invité]

Bonjour bistouille

Effectivement ton code est bien plus rapide , merci beaucoup, j'ai pu modifier mon code et supprimer ce tri qui faisait perdre beaucoup de temps

merci beaucoup de ton aide.