- プログラミングのお題スレ Part4
628 ： ◆Cn6bJfqbWU [sage]：2014/07/27(日) 04:25:32.90 ID:76uDopVH - >>555 Perl。これはやはり再帰でしょう。
sub f {
$m = $p*$n % $x;
$m == 1 ? $n : $m ? (++$n, &f) : 'false'
}
($p,$x,$n) = (213,16,1); say f;
($p,$x,$n) = (214,16,1); say f;
($p,$x,$n) = (333,29,1); say f;
|