Select Code to Download

Select or download this

use strict;
use warnings;
...
   ickyb0d_    => \&ickyb0d_,
   diotalevi   => \&diotalevi,
});

Select or download this

This is perl, v5.6.1 built for MSWin32-x86-multi-thread

...
diotalevi   4794/s       91%       76%       6%        --        -9%  
+       -9%
while_loop  5261/s      109%       93%      17%       10%         --  
+       -0%
c_style_for 5261/s      109%       93%      17%       10%         0%  
+        --