입력을 배열로 받아 입력 배열 중 중복된 라인 제거한 배열을 출력.
sub uniqueElements {
my ($item, %seen, @result);
foreach $item (@_) {
push(@result, $item) unless $seen{$item}++;
}
return @result;
}
my ($item, %seen, @result);
foreach $item (@_) {
push(@result, $item) unless $seen{$item}++;
}
return @result;
}
Show Comments