Hi LanX,

map{} will pass on undef's, but grep{} needs undef to tell whether something passed the filter. But you can stack any number of maps and greps together, which is how I came up with a workaround for it, using two maps and a grep.

The first map{}, reading from the bottom up, simply marks duplicates in-a-row (as opposed to any dupes at all) by changing them to 'aardvark'. Undef's and zeroes go through without problem. The second map{} changes actual undefined elements to the text 'undef'. Change these as suits your algorithm. The grep{} is where the duplicates/aardvarks are finally removed.

It seems to work, accommodating undefined values, while still being simple enough to use in a one-liner, and uses array refs so it doesn't pass whole lists back and forth.

use strict;

my @orig = ( qw(a a b b c 0 c d d u u), 
            (undef, undef, 'blink', 'blink'), 
             qw(0 0 v v w w a a a b b b c c c)
            );
my @list;
nodupes (\@orig, \@list);
print join ' ', @list, "\n";

sub nodupes {
    my ($ar1, $ar2) = @_;
    my $p;
    push @$ar2, grep{$_ ne 'aardvark'} 
                map{defined $_ ? $_ : 'undef'} 
                map { $p ne $_ ? $p = $_ : 'aardvark' } 
         @$ar1;
}
__END__

Prints --> a b c 0 c d u undef blink 0 v w a b c

[download]
And the one-liner -- actually broken up for easier viewing: 
perl -e "@list = grep{$_ ne 'aardvark'} 
                 map{defined $_ ? $_ : 'undef'} 
                 map{$p ne $_ ? $p = $_ : 'aardvark'} 
        (qw(a a b b c 0 c u u), (undef, undef), qw(0 0 v v w w)); 
print join ' ', @list;"

Prints --> a b c 0 c u undef 0 v w

[download]

I hope you find this interesting/useful.

--marmot

UPDATE: I was thinking about this some more, and realized I had made it waaaay too complicated. The nodupes() below pretty much is a one-liner, and accomodates 0, "0", and undef just fine. And nodupes() can be used inline with other maps and greps. In the end, the grep was the only thing needed.

use strict;
sub nodupes {
    my $p;
    return grep{ $_ ne '~~' } map { $p ne $_ ? $p = $_ : '~~'  } @_;
}

my @orig = ( qw(a a b b c 0 c d d u u),
            (undef, undef, 'blink', 'blink'),
             qw(0 0 v v "0" "0" "0" w w a a a b b b c c c)
            );

my @new = nodupes @orig;
print join ' ', @new, "\n";

__END__
Prints --> a b c 0 c d u  blink 0 v "0" w a b c
                        ^^
     There's an undef between these two spaces.

[download]

In reply to Re: reduce like iterators by furry_marmot
in thread reduce like iterators by LanX

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.