diff options
| -rw-r--r-- | challenge-168/cheok-yin-fung/perl/ch-1.pl | 14 | ||||
| -rw-r--r-- | challenge-168/cheok-yin-fung/perl/ch-2.pl | 1 |
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; } |