diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2021-12-26 18:37:41 -0500 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2021-12-26 18:37:41 -0500 |
| commit | 80ef4801d385e9d0463bbd5debbf5e51c35115d1 (patch) | |
| tree | 3564ac8fe9c9f55ae2e41192f7d59835c23330a7 | |
| parent | a83b0c57c278ddff47fe8e65258246ac75f52ae8 (diff) | |
| download | perlweeklychallenge-club-80ef4801d385e9d0463bbd5debbf5e51c35115d1.tar.gz perlweeklychallenge-club-80ef4801d385e9d0463bbd5debbf5e51c35115d1.tar.bz2 perlweeklychallenge-club-80ef4801d385e9d0463bbd5debbf5e51c35115d1.zip | |
modified: challenge-144/mattneleigh/perl/ch-1.pl
| -rwxr-xr-x | challenge-144/mattneleigh/perl/ch-1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-144/mattneleigh/perl/ch-1.pl b/challenge-144/mattneleigh/perl/ch-1.pl index 4637503816..1a2b89a3d1 100755 --- a/challenge-144/mattneleigh/perl/ch-1.pl +++ b/challenge-144/mattneleigh/perl/ch-1.pl @@ -92,7 +92,8 @@ sub find_semiprimes{ } # End for $j } # End for $i - # Sort the primes in ascending order + # Sort the semiprimes in ascending + # order @semiprimes = sort({ $a->{product} <=> $b->{product} } @semiprimes); return(@semiprimes); |