Re: Re: Re:(GOLF) Removing duplicate array elements

20 strokes.....

sub unique {
     #2345678901234567890
     $_{$_}++for@_;keys%_
}
@unique = unique( qw( 1 2 3 4 5 1 3 5 1 3 5 ) );
print "@unique";
__DATA__
1 2 3 4 5
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Comment on Re: Re: Re:(GOLF) Removing duplicate array elements Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re:(GOLF) Removing duplicate array elements by jdporter (Paladin) on Feb 17, 2003 at 03:09 UTC
Doesn't work for things that don't survive a round trip through stringification, such as references. jdporter The 6th Rule of Perl Club is -- There is no Rule #6.	[reply]
(GOLF) Removing duplicate array elements by tachyon (Chancellor) on Feb 17, 2003 at 03:32 UTC
18...I knew there was a shorter way `$a = [1,2,3]; $b = [3,4,5]; $c = [6,7,8]; @test = unique($a,$b,$c,$a,$b); use Data::Dumper; print Dumper \@test; sub unique { #23456789012345678 @_{@_}=@_;values%_ }` [download] cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]

18...I knew there was a shorter way