Select Code to Download

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

c:\test>707621.pl
Running benchmarks...
...
tye0               917/s             128%            109%             
+ 32%    2%    2%    -- -39% -93%
buk               1493/s             271%            240%             
+115%   67%   67%   63%   -- -89%
buk2             13013/s            3132%           2863%            1
+774% 1351% 1351% 1319% 771%   --