04/05/13 10:55
>>689
へーと思ってちょっと試してみたが逆の結果が。
ダマサレタ...
use Benchmark qw(:all);
@a = (1..1000);
timethese(100000, {
sum_foreach => sub {
my $sum;
for (@a) { $sum += $_ }
},
sum_map => sub {
my $sum;
map { $sum += $_ } @a;
},
});
を実行すると
Benchmark: timing 100000 iterations of sum_foreach, sum_map...
sum_foreach: 44 wallclock secs (44.29 usr + 0.00 sys = 44.29 CPU) @ 2257.85/s (n=100000)
sum_map: 47 wallclock secs (46.58 usr + 0.00 sys = 46.58 CPU) @ 2146.84/s (n=100000)