diff options
| -rwxr-xr-x | challenge-050/sol-demuth/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-050/sol-demuth/perl/ch-2.pl b/challenge-050/sol-demuth/perl/ch-2.pl index bb90bf7b78..9f6a496095 100755 --- a/challenge-050/sol-demuth/perl/ch-2.pl +++ b/challenge-050/sol-demuth/perl/ch-2.pl @@ -17,7 +17,7 @@ while ($len) { print '[' . join(', ', @L) . "]\n\n"; -foreach my $i (@L) { +foreach my $i (sort { $a <=> $b } @L) { if (scalar(grep {$_ > $i} @L) == $i) { print "Noble Integer: $i\n"; |