Re^4: Splitting array into two with a regex

Since we're using prototypes, another way might look like:

sub partition (&\@\@\@) {
    my ($cond, $start, $true, $false) = @_;

    for (@$start) {
        push @{ $cond->() ? $true : $false }, $_;
    }

    return;
}

my @arr = 1 .. 9;
my (@greater, @less);

partition { $_ > 5 } @arr => @greater, @less;

print "@greater\n@less\n";
[download]

My criteria for good software:

Does it work?
Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

Comment on Re^4: Splitting array into two with a regex Download Code