Task 1 final

2 files changed, 6 insertions, 9 deletions

diff --git a/challenge-168/cheok-yin-fung/perl/ch-1.pl b/challenge-168/cheok-yin-fung/perl/ch-1.pl
index 61ba32d69e..3f51cb4766 100644
--- a/challenge-168/cheok-yin-fung/perl/ch-1.pl
+++ b/challenge-168/cheok-yin-fung/perl/ch-1.pl
@@ -3,12 +3,8 @@
 # Task 1 Perrin Prime 
 use v5.24.0;
 use warnings;
-use List::Util qw/reduce none/;
-use Math::BigInt::GMP;          # [remark]
-use Math::BigInt::Pari;         # [remark]
-use Math::Prime::Util::GMP qw/is_prime next_prime/;
-use bigint try => 'GMP,Pari';   # [remark]
-# remark: follow suggestions on POD of Math::Prime::Util
+use List::Util qw/none/;
+use Math::Prime::Util qw/is_prime next_prime/;
 
 my @perrin_primes = (2,3);
 my ($ppnm3,$ppnm2,$ppnm1, $ppn) = (3,0,2,3);
@@ -27,7 +23,7 @@ while (scalar @perrin_primes < 13) {
 say join ", ", @perrin_primes;
 
 # time: 
-# real	0m0.078s
-# user	0m0.056s
-# sys	0m0.008s
+# real	0m0.025s
+# user	0m0.017s
+# sys	0m0.009s
 
diff --git a/challenge-168/cheok-yin-fung/perl/ch-2.pl b/challenge-168/cheok-yin-fung/perl/ch-2.pl
index 6986c4809a..00406d25ef 100644
--- a/challenge-168/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-168/cheok-yin-fung/perl/ch-2.pl
@@ -43,6 +43,7 @@ sub my_hp {
             $p = next_prime($p);
         }
         if ($p > sqrt $num) {
+            say "useful";
             push @factors, $num;
             last;
         }