diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:07:19 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:07:19 +0800 |
| commit | 5182b192585848d1b91afce11d151906762d9bcd (patch) | |
| tree | 7c84c648b22786a9b7f01b4c0b7f425591d1e1d2 | |
| parent | 3d271507b2ad90a357fb128df8fcf47b66f91ffb (diff) | |
| download | perlweeklychallenge-club-5182b192585848d1b91afce11d151906762d9bcd.tar.gz perlweeklychallenge-club-5182b192585848d1b91afce11d151906762d9bcd.tar.bz2 perlweeklychallenge-club-5182b192585848d1b91afce11d151906762d9bcd.zip | |
improved ch-2.pl
| -rwxr-xr-x | challenge-168/steve-g-lynn/perl/ch-2.pl | 1 |
1 files changed, 1 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 4732c9b136..4fcc0e19dd 100755 --- a/challenge-168/steve-g-lynn/perl/ch-2.pl +++ b/challenge-168/steve-g-lynn/perl/ch-2.pl @@ -9,6 +9,7 @@ print &home_prime(16),"\n"; print &home_prime(20),"\n"; #3318308475676071413 + sub home_prime { my ($n)=@_; is_prime($n) && return $n; |