diff options
| author | CY Fung <fungcheokyin@gmail.com> | 2022-06-18 03:10:41 +0800 |
|---|---|---|
| committer | CY Fung <fungcheokyin@gmail.com> | 2022-06-18 03:10:41 +0800 |
| commit | fc672bbd14147ada52219b148caaf02cd252e4bd (patch) | |
| tree | 1bf70a1988790400ae48fe951ecb80cad5c9d3ca | |
| parent | 7d950a3a5951c0b758bda834acad9b5eff565122 (diff) | |
| download | perlweeklychallenge-club-fc672bbd14147ada52219b148caaf02cd252e4bd.tar.gz perlweeklychallenge-club-fc672bbd14147ada52219b148caaf02cd252e4bd.tar.bz2 perlweeklychallenge-club-fc672bbd14147ada52219b148caaf02cd252e4bd.zip | |
better treatment on some numbers
| -rw-r--r-- | challenge-169/cheok-yin-fung/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-169/cheok-yin-fung/perl/ch-2.pl b/challenge-169/cheok-yin-fung/perl/ch-2.pl index 11d391bed2..baf5eb50fb 100644 --- a/challenge-169/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-169/cheok-yin-fung/perl/ch-2.pl @@ -27,6 +27,7 @@ for my $i (2..-1+72*($prime[-1]+2)) { } next if !$powerful; next if scalar @prime_factors == 0; + next if scalar @prime_factors == 1; my @ppower; for my $pf (@prime_factors) { my $ind = 2; @@ -37,7 +38,6 @@ for my $i (2..-1+72*($prime[-1]+2)) { } push @ppower, $ind; } - next if scalar @ppower == 1; $imperfect = gcd(@ppower); if ($imperfect == 1) { |