diff options
| -rwxr-xr-x | 009/ch2.pl | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/009/ch2.pl b/009/ch2.pl new file mode 100755 index 0000000..336dda0 --- /dev/null +++ b/009/ch2.pl @@ -0,0 +1,48 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +sub rank { + my $rank_type = shift; + my @points = sort @_; + + my %ranks; + my $rank = $rank_type eq "modified" ? 0 : 1; + + my $interval_begin = 0; + my $i; + for ($i = 0; $i < @points; $i++) { + my $point = $points[$i]; + if ($point != $points[$interval_begin]) { + my @points_to_add = @points[$interval_begin .. ($i-1)]; + $rank += @points_to_add if $rank_type eq "modified"; + $ranks{$rank} = \@points_to_add; + if ($rank_type eq "standard") { + $rank += @points_to_add; + } elsif ($rank_type eq "dense") { + $rank = $rank + 1; + } + $interval_begin = $i; + } + } + my @points_to_add = @points[$interval_begin .. ($i-1)]; + $rank += @points_to_add if $rank_type eq "modified"; + $ranks{$rank} = \@points_to_add; + return \%ranks; +} + +# Get rank type and points as CLI arguments +my $rank_type = shift || ""; +grep /^$rank_type$/, qw(modified standard dense) + or die "Usage: $0 {modified, standard, dense} rank1 rank2 ..."; +my @points = @ARGV; + +# Compute rankings +my $ranks = rank($rank_type, @points); + +# Display rankings +for my $rank (sort (keys %$ranks)) { + my @positions = @{$ranks->{$rank}}; + print "$rank. @positions\n"; +} |