Select Code to Download

for my $i (map 10**$_, 1..4) {
    cmpthese -30, { map { $_ => "$_ 1..$i" } qw/naive buk/ };
}

         Rate naive   buk
naive 49811/s    --  -37%
...
        Rate naive   buk
naive 46.9/s    --  -27%
buk   64.6/s   38%    --