diff options
Diffstat (limited to 'perl')
| -rwxr-xr-x[-rw-r--r--] | perl/p1.pl | 0 | ||||
| -rwxr-xr-x[-rw-r--r--] | perl/p2.pl | 0 | ||||
| -rwxr-xr-x[-rw-r--r--] | perl/p3.pl | 10 | ||||
| -rwxr-xr-x[-rw-r--r--] | perl/template.pl | 0 |
4 files changed, 4 insertions, 6 deletions
diff --git a/perl/p1.pl b/perl/p1.pl index e13aa31..e13aa31 100644..100755 --- a/perl/p1.pl +++ b/perl/p1.pl diff --git a/perl/p2.pl b/perl/p2.pl index ec85ec1..ec85ec1 100644..100755 --- a/perl/p2.pl +++ b/perl/p2.pl 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"; diff --git a/perl/template.pl b/perl/template.pl index 4f2ec78..4f2ec78 100644..100755 --- a/perl/template.pl +++ b/perl/template.pl |