| Suggested Word | Weirdness Score |
|---|
";
$letters='a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z';
$letscores='1,3,3,2,1,4,2,4,1,8,5,1,3,1,1,3,10,1,1,1,1,4,4,8,4,10';
$letscs=explode(',', $letscores);
$letss=explode(',', $letters);
$sortit=false;
$uniquifyit=false;
if (isset($_POST['others'])) {
if (strpos(strtolower(urldecode($_POST['others'])), 'sort') !== false) { $sortit=true; }
if (strpos(strtolower(urldecode($_POST['others'])), 'uniqu') !== false) { $uniquifyit=true; }
if (strpos(strtolower(urldecode($_POST['others'])), 'nodouble') !== false) { $ondc=""; }
}
if (isset($_GET['others'])) {
if (strpos(strtolower(urldecode($_GET['others'])), 'sort') !== false) { $sortit=true; }
if (strpos(strtolower(urldecode($_GET['others'])), 'uniqu') !== false) { $uniquifyit=true; }
if (strpos(strtolower(urldecode($_GET['others'])), 'nodouble') !== false) { $ondc=""; }
}
$arris=[];
$hsc="
Start five letter word for Wordle - RJM Programming - February, 2022
";
if (isset($_POST['sugnum'])) { $sugnum=str_replace('-','',str_replace('+',' ',urldecode($_POST['sugnum']))); }
if (isset($_GET['sugnum'])) { $sugnum=str_replace('-','',str_replace('+',' ',urldecode($_GET['sugnum']))); }
function ourstrtolower($insis) {
global $uniquifyit, $sofar;
$outsis=strtolower($insis);
if (strpos($sofar, ' ' . $outsis) !== false) { return ' '; }
if (!$uniquifyit) { $sofar.=' ' . $outsis . ' '; return $outsis; }
$okay=true;
for ($m=0; $m<(-1 + strlen($insis)); $m++) {
if (strpos(substr($outsis,(1 + $m)), substr($outsis,$m,1)) !== false) { $okay=false; }
}
if ($okay) { $sofar.=' ' . $outsis . ' '; return $outsis; }
return ' ';
}
for ($i=0; $i<$sugnum; $i++) {
$aword = ' ';
while ($aword == ' ') {
$aword=ourstrtolower(file_get_contents('http://www.rjmprogramming.com.au/PHP/surprise.php?min=6&max=6&youllneverfindthis=y'));
}
$iscore=0;
for ($j=0; $j', '' . $aword . '' . $iscore . '
', $tablebit);
} else {
array_push($arris, substr("0000000000" . $iscore, -10,10) . $aword);
}
}
if ($sortit) {
sort($arris);
for ($i=0; $i<$sugnum; $i++) {
$tablebit=str_replace('', '' . substr($arris[$i],10) . '' . ltrim(substr($arris[$i],0,10), '0') . '
', $tablebit);
}
}
echo "" . $hsc . "Start five letter word for Wordle ...