78 lines
2.3 KiB
PHP
78 lines
2.3 KiB
PHP
<?php
|
|
|
|
|
|
const MIN_LETTRES_MOT_1 = 2;
|
|
const MIN_LETTRES_MOT_2 = 0;
|
|
const MAX_MOTS = 100000;
|
|
|
|
|
|
$dico = [];
|
|
if (($lecteur = fopen("dico.csv", "r")) !== FALSE) {
|
|
$header = fgetcsv($lecteur, 0, "\t");
|
|
while (($ligne = fgetcsv($lecteur, 0, "\t")) !== FALSE) {
|
|
if (substr($ligne[0], 0, 1) != "#" && count($ligne) >= 3) {
|
|
[$mot, $definition, $auteur] = $ligne;
|
|
if ($auteur) {
|
|
$dico[strtoupper($mot)] = "$definition <small><em>$auteur</em></small>";
|
|
} else {
|
|
$dico[strtoupper($mot)] = $definition;
|
|
}
|
|
$nb_espaces = substr_count($mot, ' ');
|
|
if ($nb_espaces > 0) {
|
|
$dico[$mot] .= " <small>(" . ($nb_espaces + 1) . " mots)</small>";
|
|
}
|
|
}
|
|
}
|
|
fclose($lecteur);
|
|
}
|
|
|
|
$mots_de_n_lettres = [];
|
|
foreach ($dico as $mot => $definition) {
|
|
$n = strlen($mot);
|
|
if (!isset($mots_de_n_lettres[$n])) {
|
|
$mots_de_n_lettres[$n] = [];
|
|
}
|
|
$mots_de_n_lettres[$n][] = $mot;
|
|
}
|
|
|
|
function fisherYatesShuffle(&$items)
|
|
{
|
|
for ($i = count($items) - 1; $i > 0; $i--) {
|
|
$j = mt_rand(0, $i);
|
|
$tmp = $items[$i];
|
|
$items[$i] = $items[$j];
|
|
$items[$j] = $tmp;
|
|
}
|
|
}
|
|
|
|
function mots_espaces($longueur)
|
|
{
|
|
global $mots_de_n_lettres;
|
|
global $dico;
|
|
|
|
$nb_mots = 0;
|
|
fisherYatesShuffle($mots_de_n_lettres[$longueur]);
|
|
foreach ($mots_de_n_lettres[$longueur] as $mot) {
|
|
yield $mot;
|
|
if (++$nb_mots > MAX_MOTS) {
|
|
return;
|
|
}
|
|
}
|
|
for ($i = MIN_LETTRES_MOT_1; $longueur - $i - 1 >= MIN_LETTRES_MOT_2; $i++) {
|
|
foreach ($mots_de_n_lettres[$i] as $mot1) {
|
|
foreach (mots_espaces($longueur - $i - 1) as $mot2) {
|
|
if ($mot1 != $mot2) {
|
|
$dico["$mot1 $mot2"] = $dico[$mot1] && $dico[$mot2] ? "<ol><li>{$dico[$mot1]}</li><li>{$dico[$mot2]}</li></ol>" : $dico[$mot1] . $dico[$mot2];
|
|
yield "$mot1 $mot2";
|
|
$dico["$mot2 $mot1"] = $dico[$mot2] && $dico[$mot1] ? "<ol><li>{$dico[$mot2]}</li><li>{$dico[$mot1]}</li></ol>" : $dico[$mot2] . $dico[$mot1];
|
|
yield "$mot2 $mot1";
|
|
$nb_mots += 2;
|
|
if ($nb_mots > MAX_MOTS) {
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|