14/08/06 20:47:08.78 cDGFBMOc.net
>>14
sub f {
$n++ while ($m = $p*$n % $x) > 1;
   $m ? $n : 'false'
}
($p,$x,$n) = (213,16,1); say f;
14/08/06 20:47:08.78 cDGFBMOc.net
>>14
sub f {
$n++ while ($m = $p*$n % $x) > 1;
   $m ? $n : 'false'
}
($p,$x,$n) = (213,16,1); say f;