From 3cc61075c2564e35c4826d6431312e2b0dcf2179 Mon Sep 17 00:00:00 2001
From: CY Fung <fungcheokyin@gmail.com>
Date: Tue, 7 Jun 2022 21:17:33 +0800
Subject: to be improved within this week

---
 challenge-168/cheok-yin-fung/perl/ch-2.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/challenge-168/cheok-yin-fung/perl/ch-2.pl b/challenge-168/cheok-yin-fung/perl/ch-2.pl
index 0518d1dbcd..3289846cfe 100644
--- a/challenge-168/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-168/cheok-yin-fung/perl/ch-2.pl
@@ -1,3 +1,5 @@
+# CAN BE IMPROVED
+
 #!/usr/bin/perl
 # The Weekly Challenge 168
 # Task 2 Home Prime 
@@ -39,7 +41,7 @@ sub my_hp {
             $num /= $p;
         }
         else {
-            $p = next_prime($p);
+            $p = next_prime($p);    # CAN BE IMPROVED
         }
     } while ($num != 1);
     my $nxt = (reduce { $a . $b } @factors);
-- 
cgit