テスト

テスト (569ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

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;