配列の要素の重複の取り出しについて

Question

お世話になります。

perlについて質問です。

配列[3 4 6 2 1 4 5]

という配列があった場合に重複する値、この場合だと4を抽出する場合に、どのような取り出し方があるのでしょうか？

私の勝手な考えですが、このような関数があるのかと考えましたが、どうでしょうか？

よろしくお願い致します。

Comments

[takasima20]

汎用的には、ソート後に値と個数のタプルを作って処理する感じでしょうが、Perlなりのノウハウがあるみたいですねえ。

Answer 1

重複値の取り出しでは、以下の様なコードが定番です。

my %s ; 
print grep $s{$_} ++, qw( 3 4 6 2 1 4 5 ) ;
#4

%s に値をキャッシュして、$s{$}が定義されていれば($s{$}が1以上であれば)、grepされると言う単純なコードになっています。

後置++ は grep 評価の後に実行されるので、最初の1個目はスルー、2個目からが対象となります。

ちなみに、uniqにするのは

grep ! $s{$_} ++, qw( 3 4 6 2 1 4 5 ) ;
# 346215

となります(こちらは、$s{$_}が未定義であれば、grep)。

3回同じものがある場合を抽出したければ、

grep $s{$_} ++ >=2 , qw( 3 4 6 2 1 4 5 4 ) ;
# 4

と、応用が効きます。