Re^4: reduce like iterators

[Anonymous Monk]

my @b = @{ reduce { push @$a, $b if !@$a || $b ne $a->[-1]; $a } [], @
+a };

This is really clever and should be included in List::Util: https://rt.cpan.org/Ticket/Display.html?id=150773.
Note I had to disambiguate reduce by adding a '+'.

[jdporter]

I had to disambiguate reduce by adding a '+'.

Did you?

[kcott]

"Did you?"

I did.

Syntax error without "+":

$ perl -MO=Deparse -e 'my @b = @{ reduce { push @$a, $b if !@$a || $b 
+ne $a->[-1]; $a } [], @a };'
syntax error at -e line 1, near "$b if"
-e had compilation errors.

Syntax OK with "+":

$ perl -MO=Deparse -e 'my @b = @{ +reduce { push @$a, $b if !@$a || $b
+ ne $a->[-1]; $a } [], @a };'
my(@b) = @{do {
    push @$a, $b if not @$a or $b ne $a->[-1];
    $a
}->reduce([], @a);};
-e syntax OK

[ikegami]

The issue isn't a missing + (which doesn't help parse the code correctly); the issue is that you didn't declare reduce (which has a prototype). Add

use List::Util qw( reduce );

[jdporter]

But your note still shows the former (without), not the latter (with). I guess I'm confused.