diff options
Diffstat (limited to 'perl/p3.pl')
-rwxr-xr-x | perl/p3.pl | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -14,14 +14,14 @@ my @primes; my $last_factor; for my $i (2 .. $n) { - last if ($i > $n); - if (all { $i % $_ != 0 } @primes) { - if ($n % $i == 0) { - $n /= $i; - $last_factor = $i; - redo; - } - push(@primes, $i); - } + last if ($i > $n); + if (all { $i % $_ != 0 } @primes) { + if ($n % $i == 0) { + $n /= $i; + $last_factor = $i; + redo; + } + push(@primes, $i); + } } print "$last_factor\n"; |