summaryrefslogtreecommitdiff
path: root/perl/p3.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl/p3.pl')
-rwxr-xr-xperl/p3.pl18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl/p3.pl b/perl/p3.pl
index 77324e1..86e2133 100755
--- a/perl/p3.pl
+++ b/perl/p3.pl
@@ -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";