John Williams skribis 2004-05-18 16:07 (-0600):
> > $a{$_}++ for @a;
> [EMAIL PROTECTED];
That's not a bad idea, even in Perl 5:
1;0 [EMAIL PROTECTED]:~$ perl -MBenchmark=cmpthese -e'my @foo = (1..16,
1..10); cmpthese -1, { a => sub { my %foo; $foo{$_}++ for @foo; }, i
b => sub { my %foo; $_++ for @[EMAIL PROTECTED]; } }'
Rate a b
a 51121/s -- -9%
b 56220/s 10% --
Juerd
