Select Code to Download

sub part{ 
    my( $n, $m ) = @_; 
...
    $parts[ $i++ ]++ while $n--; 
    return @parts;
}

      Rate  syp  buk  eli  ike
syp 8.36/s   -- -42% -47% -74%
...
eli 15.8/s  89%   9%   -- -52%
ike 32.5/s 289% 125% 106%   --