04/05/14 07:06
>>694
use Benchmark;
my @aa = 1..10;
my @bb = 10..20;
timethese(-1, {
'foreach' => sub {
foreach my $xx (@aa) {
foreach (@bb) { my $yy = "$xx-$_" }
}
},
'map' => sub {
map {
my $xx = $_;
map { my $yy = "$xx-$_" } @bb
} @aa;
},
});
古いバージョンだとmapは全般的に遅かったような。