I think this is the last :)

    buk4 => sub {
        ( -1 == index $_[0], chop $_[ 1 ] ) || return for 1 .. length 
+$_[ 1 ];
        1;
    },
[download]

I doubt it - I'm guessing you're going to post buk5 which passes the tests, because buk4 doesn't :)

Mike

That's weird? I just re-downloaded the benchmark code from the OP and I don't get any failures?

<Reveal this spoiler or all in this thread>

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."