\n";
while ($ok!=true)
{
$ok=true;
for ($i=1;$i<=$nrt;$i++) $x[$i] = rand(1,$nri);
for ($i=1;$i<=$nrt-1;$i++)
for ($j=$i+1;$j<=$nrt;$j++)
if ($x[$i]==$x[$j]) $ok=false;
}
for ($i=1;$i<=$nrt;$i++) {
echo "\n";
}
for ($i=1;$i<=$nrt;$i++) {
echo $intr[$x[$i]]."
\n";
for ($j=1;$j<=4;$j++) {
$var = $x[$i]*10+$j;
echo "".$variante[$var]."\n";
}
echo "
\n
\n";
}
?>
Inapoi