eXg (569Ϊ½)
γΊO1-V
oπ Ϊ½x
14(1): 2014/08/06(
)20:45 ID:cDGFBMOc(1/2)² AAS
>>11
sub f {
    $n++ while ($m = $p*$n % $x) > 1;
    $m ? $n : 'false'
}
($p,$x,$n) = (213,16,1); say f;
15(1): 2014/08/06(
)20:47 ID:cDGFBMOc(2/2)² AAS
>>14
sub f {
$n++ while ($m = $p*$n % $x) > 1;
   $m ? $n : 'false'
}
($p,$x,$n) = (213,16,1); say f;
γΊO1-VΦΚΒυέxπ
½Ϊξρ ΤΪ½o ζΪ½o πΜ’Η½Ϊ AA»ΡΘ²Ω
Κ±Μθ Κ±TOP 0.776s*