>>279
> でも教えてくれないんですね。
教えてくれてるじゃん。
「できませんか？」と聞いているんだから、「できる」「できない」が分かればいいんでしょ?

> sortの便利な使い方見てみたいです。
いや、sort なんて使わなくてもいいし。

> とりあえずハッシュのキーと値を使う方法で作りました。
じゃあ、まずはそれを晒してみろ。話はそれからだ。










と言うつもりだったけど、そろそろ寝るので、俺のをさっさと晒してしまう。
要素の割合 (0-1--5 とかではなく) を調べる、と勝手に解釈してるのと、
0-1--5 のようにはしてないのが >>274 と違う。
ホントにデータは配列で与えるのか? とか気になるところもあるけど、その辺は適当にやってくれ。

my @result = qw/6-5 5-6 8-4 8-5 8-5 7-3 11-7 6-5 6-4 6-3/;
my %r;
$r{$_}++ for (@result);

foreach my $i (keys %r) {
print "$i: $r{$i} (" . ($r{$i} * 100 / @result) . "%)\n";
}