sub listc {
my $lcm = List::Compare->new(
$listrefs[0], $listrefs[1], $listrefs[2]);
my @int = $lcm->get_intersection();
my $intref = $lcm->get_intersection_ref();
}
sub mistc {
my $lcm = Mist::Compare->new(
$listrefs[0], $listrefs[1], $listrefs[2]);
my @int = $lcm->get_intersection();
my $intref = $lcm->get_intersection_ref();
}
####
Benchmark: timing 10 iterations of listc, mistc...
listc: 91.58 usr
mistc: 100.13 usr
Benchmark: timing 50 iterations of listc, mistc...
listc: 506.71 usr
mistc: 524.29 usr
Benchmark: timing 100 iterations of listc, mistc...
listc: 727.00 usr
mistc: 750.56 usr
Benchmark: timing 100 iterations of listc, mistc...
listc: 731.85 usr
mistc: 751.10 usr
Benchmark: timing 100 iterations of listc, mistc...
listc: 731.89 usr
mistc: 753.57 usr
####
*amistc = \&mistc;
Benchmark: timing 10 iterations of amistc, listc...
amistc: 90.80 usr
listc: 102.63 usr
Benchmark: timing 50 iterations of amistc, listc...
amistc: 508.31 usr
listc: 405.34 usr
Benchmark: timing 100 iterations of amistc, listc...
amistc: 727.48 usr
listc: 748.60 usr
Benchmark: timing 100 iterations of amistc, listc...
amistc: 737.53 usr
listc: 765.64 usr
Benchmark: timing 100 iterations of amistc, listc...
amistc: 734.79 usr
listc: 754.06 usr