- 12 名前：nobodyさん mailto:sage [2008/03/14(金) 13:36:44 ID:???]
- 先生∩
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 } @_);
}
