From fc672bbd14147ada52219b148caaf02cd252e4bd Mon Sep 17 00:00:00 2001
From: CY Fung <fungcheokyin@gmail.com>
Date: Sat, 18 Jun 2022 03:10:41 +0800
Subject: better treatment on some numbers

---
 challenge-169/cheok-yin-fung/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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) {
-- 
cgit