Select Code to Download

Select or download this

    buk2 => sub {
        local $_;
        1+index $_[0], $_ or return while $_ = chop $_[1];
        1;
    },

Select or download this

c:\test>707621.pl
Running benchmarks...
...
buk                    1604/s                 2176%             242%  
+          241%             130%   97%   79%   74%   -- -87%
buk2                  12775/s                18020%            2624%  
+         2616%            1734% 1471% 1324% 1283% 696%   --