Re^2: removing duplicate entries from an array

Replies are listed 'Best First'.
Re^3: removing duplicate entries from an array by Roy Johnson (Monsignor) on Nov 07, 2005 at 22:01 UTC
Dirtier: `print join ', ', keys %{(grep \@{$_}{@XYZ}, {})[0]};` [download] `;-)` Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^3: removing duplicate entries from an array by GrandFather (Saint) on Nov 07, 2005 at 21:32 UTC
Dirtier maybe, quicker not: `use strict; use warnings; use Benchmark qw(cmpthese); my @XYZ = qw(Mary Mary Mary Mary Joe Joe Joe); cmpthese ( -1, { 'GF' => sub {my %unique; @unique{@XYZ} = (); keys %unique;}, 'DW' => sub {keys %{{map {$_=>undef} @XYZ}};}, 'RJ' => sub {keys %{(grep \@{$_}{@XYZ}, {})[0]};}, } );` [download] Benchmark results: `Rate DW RJ GF DW 71543/s -- -62% -73% RJ 188025/s 163% -- -28% GF 260808/s 265% 39% --` [download] Updated to include Roy Johnson's "dirtier" version Perl is Huffman encoded by design.	[reply] [d/l] [select]
Re^4: removing duplicate entries from an array by davidrw (Prior) on Nov 07, 2005 at 21:47 UTC
good point... though depends on OP's definition of "quick & dirty" and if it's in reference to the coding or the actual execution... :)	[reply]