ソート順の配列に順位表示する

Perlで、大きいソート順になっている配列があります。
その中には重複しているデータもあります
@list = (100,80,80, 50, 50, 45, 10, 0, 0, 0);
のような配列を
@ranking = (1,2,2, 4, 4, 6, 7,10,10,10);
と順位を格納させたいです。

簡単な方法がありましたら、教えてください。

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2011/01/29 02:07

@ranking がなぜそうなるのか説明してください.

特に最後の 10.

No.4 回答者： Tacosan 回答日時： 2011/01/29 03:01

最後が 8 でいいなら

@ranking = (1);
for my $i (1 .. $#list) {
push @ranking, ($list[$i-1] == $list[$i] ? $ranking[-1] : $i+1);
}

とか.

No.3 回答者： toraneko75 回答日時： 2011/01/29 02:25

最後が8でいいなら・・ってことで作ってみました。

100 80 80 50 50 45 10 0 0 0から
1 2 2 4 4 6 7 8 8 8ができます。


#!/usr/bin/perl
use strict;
use warnings;
my @ranking;
my @list = ( 100, 80, 80, 50, 50, 45, 10, 0, 0, 0, );
my $max = $list[0];
my $i = 1;
foreach my $num ( 0 .. $#list ) {
if ( $max == $list[$num] ) {
push @ranking, $i;
} else {
$i=$num+1;
push @ranking, $i;
$max = $list[$num];
}
}
print "@list\n";
print "@ranking\n";
exit;

No.2 回答者： jjon-com 回答日時： 2011/01/29 02:22

@ranking = (1,2,2,4,4,6,7,8,8,8);

という結果が正しく，10行程度のプログラムを組んだものでも質問者にとって「簡単な方法」に該当するなら，こんなコード例を挙げられます。

@list = (100,80,80,50,50,45,10,0,0,0);
@ranking = ();
$prev = $list[0] + 1;
$i = 1;
foreach $cur (@list) {
if ($prev != $cur) {
$order = $i;
}
push @ranking, $order;
$prev = $cur;
$i++;
}
print "@ranking";