Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^2: removing duplicate entries from an array

by davidrw (Prior)
on Nov 07, 2005 at 21:21 UTC ( #506531=note: print w/replies, xml ) Need Help??


in reply to Re: removing duplicate entries from an array
in thread removing duplicate entries from an array

OP asked for quick & dirty :)
print join ", ", keys %{{map {$_=>undef} @XYZ}};

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]};
    ;-)

    Caution: Contents may have been coded under pressure.
Re^3: removing duplicate entries from an array
by GrandFather (Sage) 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]};}, } );

    Benchmark results:

    Rate DW RJ GF DW 71543/s -- -62% -73% RJ 188025/s 163% -- -28% GF 260808/s 265% 39% --

    Updated to include Roy Johnson's "dirtier" version


    Perl is Huffman encoded by design.
      good point... though depends on OP's definition of "quick & dirty" and if it's in reference to the coding or the actual execution... :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://506531]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2020-11-25 05:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?