Return to Answer

added 87 characters in body

Source Link

edited Mar 2 at 8:34

Perl 5 + `-pl`, 3431 bytes

Thanks to @DLosc for saving 3 bytes in the regex!

A different approach to @Xcali in their answer.

s/[^z]z*$.z*$/$&=~y!0-9a-z!1-9a-z0!r/e

Replaces any character that isn't z, followed by 0 or more zs, with the result of transliterating 0-9a-z to 1-9a-z0.

A different approach to @Xcali in their answer.

s/[^z]z*$/$&=~y!0-9a-z!1-9a-z0!r/e

Replaces any character that isn't z, followed by 0 or more zs, with the result of transliterating 0-9a-z to 1-9a-z0.

Thanks to @DLosc for saving 3 bytes in the regex!

A different approach to @Xcali in their answer.

s/.z*$/$&=~y!0-9a-z!1-9a-z0!r/e

Replaces any character, followed by 0 or more zs, with the result of transliterating 0-9a-z to 1-9a-z0.

Source Link

created Mar 1 at 17:14

A different approach to @Xcali in their answer.

s/[^z]z*$/$&=~y!0-9a-z!1-9a-z0!r/e

Replaces any character that isn't z, followed by 0 or more zs, with the result of transliterating 0-9a-z to 1-9a-z0.