Benchmark 2 codes

[Edo]

Hello
I am not able to run these 2 codes to find which is faster because I
just don't know how to. any help is appriciated.

thanks

#!/perl -w
use strict;
use warnings;
use List:ermutor;
use Algorithm:ermute;
use Benchmark qwall);


my $perm = new List:ermutor qw/ a b c d e /;
while (my @set = $perm->next) {
print "@set.\n";
}

my $p = new Algorithm:ermute(['a'..'e']);
while (my @res = $p->next) {
print join(", ", @res), "\n";
}

cmpthese($count, {
'Name1' => '...code1...',
'Name2' => '...code2...',
});

 

[Uri Guttman]

I am not able to run these 2 codes to find which is faster because I
just don't know how to. any help is appriciated.

my $perm = new List:ermutor qw/ a b c d e /;
while (my @set = $perm->next) {
print "@set.\n";
}

my $p = new Algorithm:ermute(['a'..'e']);
while (my @res = $p->next) {
print join(", ", @res), "\n";
}

wrap those two snippets in subs.

cmpthese($count, {
'Name1' => '...code1...',
'Name2' => '...code2...',

call the subs in the strings. choose better names (like the module names)

done.

uri