diff options
| -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); |