diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:45:00 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:45:00 +0800 |
| commit | bfba759aa6812adf1536870315cc6648b97163c5 (patch) | |
| tree | bd60832bdceb2d62baf56ee509c9d16d1d2ae5a1 | |
| parent | ff980517b9e50ee68b469cddc0ca26e5f9982cee (diff) | |
| download | perlweeklychallenge-club-bfba759aa6812adf1536870315cc6648b97163c5.tar.gz perlweeklychallenge-club-bfba759aa6812adf1536870315cc6648b97163c5.tar.bz2 perlweeklychallenge-club-bfba759aa6812adf1536870315cc6648b97163c5.zip | |
improved ch-2.pl
| -rwxr-xr-x | challenge-168/steve-g-lynn/perl/ch-2.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-168/steve-g-lynn/perl/ch-2.pl b/challenge-168/steve-g-lynn/perl/ch-2.pl index be079624bc..5fe95544ad 100755 --- a/challenge-168/steve-g-lynn/perl/ch-2.pl +++ b/challenge-168/steve-g-lynn/perl/ch-2.pl @@ -4,8 +4,10 @@ use Math::Prime::XS qw(is_prime); print &home_prime(10),"\n"; #773 + print &home_prime(16),"\n"; #31636373 + print &home_prime(20),"\n"; #3318308475676071413 @@ -43,3 +45,6 @@ sub factors { } return $retstring; } + +1; + |