diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:20:08 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-11 21:20:08 +0800 |
| commit | ff980517b9e50ee68b469cddc0ca26e5f9982cee (patch) | |
| tree | 755c6d8367cba052d11d64f737524063af915934 | |
| parent | 337a373ae28cb51b8d74be6505b2f695e5ac2cb5 (diff) | |
| download | perlweeklychallenge-club-ff980517b9e50ee68b469cddc0ca26e5f9982cee.tar.gz perlweeklychallenge-club-ff980517b9e50ee68b469cddc0ca26e5f9982cee.tar.bz2 perlweeklychallenge-club-ff980517b9e50ee68b469cddc0ca26e5f9982cee.zip | |
improved ch-2.pl
| -rwxr-xr-x | challenge-168/steve-g-lynn/perl/ch-2.pl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/challenge-168/steve-g-lynn/perl/ch-2.pl b/challenge-168/steve-g-lynn/perl/ch-2.pl index 67db0846ea..be079624bc 100755 --- a/challenge-168/steve-g-lynn/perl/ch-2.pl +++ b/challenge-168/steve-g-lynn/perl/ch-2.pl @@ -9,8 +9,6 @@ print &home_prime(16),"\n"; print &home_prime(20),"\n"; #3318308475676071413 - - sub home_prime { my ($n)=@_; is_prime($n) && return $n; @@ -21,12 +19,10 @@ sub home_prime { return $n; } - - sub factors { #--return concatenated prime factors of a number n my ($n)=@_; - local $sqrt_n=int(sqrt($n)); + local $sqrt_n=floor(sqrt($n)); my $retstring=""; |