Perlで配列の積集合(intersection)を求めるベンチマークがおもしろかったので自分でもやってみた - つれづれ日記

Perlで配列の積集合(intersection)を求めるベンチマーク がおもしろかったので自分でもやってみた。 List::などのクラスは遅いそうなので、除外して、連想配列(hash)を使った方法だけに絞った。 use strict; use warnings; use Benchmark; my @l1 = map { int rand 1000 } 1..1000; my @l2 = map { int rand 1000 } 1..1000; timethese(10000, { q/hash-map-grep-exists/ => sub { my (%in_l1); map { $in_l1{$_}++ } @l1; grep { exists $in_l1{$_} } @l2; }, q/hash-map+keys/ => sub { my (%union, %isect);

[rindai87]

深いなぁ