- プログラミングのお題スレ Part4
376 ： ◆0qAv26otVI [sage]：2014/07/02(水) 12:46:46.91 ID:Wa71T36d - >>353 走行（倉庫）証明は今回いらないだろう。
#!/usr/bin/perl
use 5.016;
use warnings;
sub gcd { $_[1] ? gcd($_[1], $_[0] % $_[1]) : $_[0] }
sub lcm { $_[0] * $_[1] / gcd($_[0], $_[1]) }
sub rca {
my ($p, $q, $e) = @_;
my $lcm = lcm($p - 1, $q - 1);
for (1 .. $p * $q) {
$_ = $_ * $lcm + 1;
if(!($_ % $e) && ($_ != $e)) {
return $_ / $e;
}
}
}
say rca(map{ <STDIN> }(1 .. 3));
|