A better version is:
@array = sort @array; my $j = 0; my $last; for my $e (@array) { if (!$j or $last ne $e) { $array[$j] = $last = $e; $j++; } } $#array = $j-1;
In reply to Re^2: Howto Avoid Memory Problem in List::MoreUtils
by salva
in thread Howto Avoid Memory Problem in List::MoreUtils
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |