Re^2: cull

[radiantmatrix]

Interesting. Before reading your comment, I came up with the solution below. The only differences are style (e.g. $code->() vs. &$code) that I refrain from building a return array if the context is void or scalar.

I guess TMTOWTDI leads to some random convergence at times. ;-)

use strict; use warnings;
use List::MoreUtils qw[firstidx];

sub cull (&\@) {
    my ($code, $array) = (shift, shift);
    my @matches;
    my $count;
    
    # let List::MoreUtils (fast!) find the items
    # splice() returns the items removed....
    while ( (my $idx = firstidx { $code->() } @$array) > -1 ) { 
        my $item = splice(@$array,$idx,1);
        wantarray ? push(@matches, $item) : $count++;
    }
    
    wantarray ? @matches : $count;
}

my @test = qw[how I wish I could remember pi easily];
my @new = cull { $_ eq 'I' } @test;

print join(':',@new), "\n";
print join(':',@test), "\n";