Select Code to Download

#!perl
use strict;
...
else {
    cmpthese( -3, \%contenders);
}

              Rate Grep Trinary Hash  Map Original New_Map New_Grep Tr
+i_Substr Switch Tri_Substr2
Grep         969/s   --    -30% -33% -37%     -43%    -50%     -56%   
+    -68%   -71%        -76%
...
Tri_Substr  3050/s 215%    121% 111% 100%      79%     57%      39%   
+      --    -9%        -24%
Switch      3353/s 246%    143% 132% 119%      97%     73%      52%   
+     10%     --        -16%
Tri_Substr2 4000/s 313%    190% 177% 162%     135%    106%      82%   
+     31%    19%          --