Select Code to Download

==== Speed tests ====

...
L~R        450572/s   1149%     389%    378%       305%      --      -
+3%     -3%
origCode   462599/s   1182%     402%    391%       316%      3%       
+--     -1%
duff       466249/s   1193%     406%    394%       319%      3%       
+1%      --

#!perl

...

cmpthese( -5,
    {map {$_ => make_mpstyle_routine($_)  } keys %$codehash });

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/