68user's page 掲示板

Prev< No. 2434> Next  [最新発言に戻る] [過去ログ一覧]
No. 2434 # ふくし [E-mail] 2002/01/23 (水) 18:47:10
>>2433 ミング
さん：

なんとなく似せて書くと

#! perl

@array = (9,9,9,3,3,3,2,2,1);

for (@array) {
        $array2{$_}++;
}

for (reverse sort keys %array2) {
        print "$_=$array2{$_}\n";
}

とか。
「ハッシュ」の機能を使っています。

@array の順番には関係なく、
常に大きな数字から出力していますがいいでしょうか。
（ハッシュを使うと、順不同になるので、、）
Prev< No. 2434> Next  [最新発言に戻る] [過去ログ一覧]