Списки

Иногда забываю о таких замечательных модулях как List::Util и List::MoreUtils.
Почему забываю? Потому, что маленькие полезные подпрограммы по работе со списками из этих модулей легко и быстро реализовать самому.

Но почему не не стоит забывать? Потому, что эти полезные подпрограммы написаны на C, что положительно сказывается на больших списках.

use strict;
use warnings;

use List::Util;

use Benchmark qw(cmpthese);

my $foo = [1 .. 10000];

use vars qw($a $b);

cmpthese(1000, {
 'manual' => sub {
  my $s = 0;
  $s += $_ foreach @$foo;
 },
 'List::Util::sum' => sub {
  List::Util::sum(@$foo);
 },
 'List::Util::reduce' => sub {
  List::Util::reduce { $a + $b } @$foo;
 },
});

__END__

                     Rate            manual List::Util::reduce   List::Util::sum
manual              153/s                --               -11%              -91%
List::Util::reduce  171/s               12%                 --              -90%
List::Util::sum    1662/s              987%               871%                --