diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:10:58 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:10:58 +0800 |
| commit | 337a373ae28cb51b8d74be6505b2f695e5ac2cb5 (patch) | |
| tree | 172401955f4020f81e793b9a19a5811bc425a2e5 | |
| parent | 5182b192585848d1b91afce11d151906762d9bcd (diff) | |
| download | perlweeklychallenge-club-337a373ae28cb51b8d74be6505b2f695e5ac2cb5.tar.gz perlweeklychallenge-club-337a373ae28cb51b8d74be6505b2f695e5ac2cb5.tar.bz2 perlweeklychallenge-club-337a373ae28cb51b8d74be6505b2f695e5ac2cb5.zip | |
improved perl ch-2.pl
| -rwxr-xr-x | challenge-168/steve-g-lynn/perl/ch-2.pl | 2 |
1 files changed, 2 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 4fcc0e19dd..67db0846ea 100755 --- a/challenge-168/steve-g-lynn/perl/ch-2.pl +++ b/challenge-168/steve-g-lynn/perl/ch-2.pl @@ -10,6 +10,7 @@ print &home_prime(20),"\n"; #3318308475676071413 + sub home_prime { my ($n)=@_; is_prime($n) && return $n; @@ -21,6 +22,7 @@ sub home_prime { } + sub factors { #--return concatenated prime factors of a number n my ($n)=@_; |