08/03/14 13:36:44
先生∩
sub uniq #重複行削除
{
my %seen;
return (grep { ! $seen{$_}++ } @_);
}
sub uniqu #1回のみの行
{
my %seen;
$seen{$_}++ for @_;
return (grep { $seen{$_} == 1 } @_);
}
な感じの物を見つけたのですが、何が起きてるかさっぱり解りません。
そこで質問です。
以下は2行以上あるものだけの出力になるっぽいのですが、合ってるでしょうか？
sub uniqd
{
my %seen;
return (grep { $seen{$_}++ == 1 } @_);
}