Select Code to Download

#!/usr/bin/perl

...
              'val'     => '&val',
              'simple'  => '&simple' } );
cmpthese $r;

[Perl]
test= bar,baz,foo,quux

val:  6 wallclock secs ( 5.69 usr +  0.30 sys =  5.99 CPU) @ 989.98/s 
+(n=5930)
          Rate complex     val  simple
complex  700/s      --    -29%    -46%
val      990/s     41%      --    -24%
simple  1297/s     85%     31%      --