diff options
Diffstat (limited to 'perl/p3.pl')
| -rwxr-xr-x[-rw-r--r--] | perl/p3.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/perl/p3.pl b/perl/p3.pl index 3caebf2..77324e1 100644..100755 --- a/perl/p3.pl +++ b/perl/p3.pl @@ -14,16 +14,14 @@ my @primes; my $last_factor; for my $i (2 .. $n) { - if ($i > $n) { - last; - } + last if ($i > $n); if (all { $i % $_ != 0 } @primes) { - push(@primes, $i); - if ($n % $i== 0) { - $n = $n / $i; + if ($n % $i == 0) { + $n /= $i; $last_factor = $i; redo; } + push(@primes, $i); } } print "$last_factor\n"; |