Try it this way. I believe it addresses both the real and conceptual errors and runs even faster:

    buk3 => sub {
        1+index $_[0], chop $_[ 1 ] or return for 1 .. length $_[ 1 ];
        1;
    },
[download]

Who says optimisation can't also result in correct code. Such fun :)

You're right - that passes all tests and wins by a good margin.

You're quite good at this game :)

I'll update the parent post.


Mike

The 0 prematurely ends the while loop without checking for a 0 in the sentence (or any earlier characters in the wantedLetters string), so they return 1.

Corrected, thanks!

Mike

I think this is the last :)

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

---

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."