- or download this
sub listc {
my $lcm = List::Compare->new(
...
my @int = $lcm->get_intersection();
my $intref = $lcm->get_intersection_ref();
}
- or download this
Benchmark: timing 10 iterations of listc, mistc...
listc: 91.58 usr
...
Benchmark: timing 100 iterations of listc, mistc...
listc: 731.89 usr
mistc: 753.57 usr
- or download this
*amistc = \&mistc;
...
Benchmark: timing 100 iterations of amistc, listc...
amistc: 734.79 usr
listc: 754.06 usr