diff options
Diffstat (limited to '009')
-rwxr-xr-x | 009/ch2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -54,7 +54,7 @@ my @points = @ARGV; my $ranks = rank($rank_type, @points); # Display rankings -for my $rank (sort (keys %$ranks)) { +foreach my $rank (sort (keys %$ranks)) { my @positions = @{$ranks->{$rank}}; print "$rank. @positions\n"; } |