added 35 characters in body

Source Link

edited Aug 15, 2022 at 12:33

Perl 5, 81 7272 71 bytes

-1 byte thanks to Xcali!

s![aeiouy]+(.)\K.*!($1=~y/bcdfgkpstvzbdfgpstvzck/pgtvkgbzdfsptvkbzdfsg/r.$&x/[aeiouy]/g)x2!ge

Perl 5, 81 72 bytes

s![aeiouy]+(.)\K.*!($1=~y/bcdfgkpstvz/pgtvkgbzdfs/r.$&x/[aeiouy]/g)x2!ge

-1 byte thanks to Xcali!

s![aeiouy]+(.)\K.*!($1=~y/bdfgpstvzck/ptvkbzdfsg/r.$&x/[aeiouy]/g)x2!ge

added 230 characters in body

Source Link

edited May 21, 2019 at 8:56

Grimmy

s![aeiouy]+(.)\K.*!$^=$1=~y/bcdfgkpstvz/pgtvkgbzdfs/r;/[aeiouy]/g;"$^$&$^$&"!ge

s![aeiouy]+(.)\K.*!($1=~y/bcdfgkpstvz/pgtvkgbzdfs/r.$&x/[aeiouy]/g)x2!ge

Run with perl -pe. Assumes the input is all lowercase.Try it online!

s![aeiouy]+(.)\K.*!$^=$1=~y/bcdfgkpstvz/pgtvkgbzdfs/r;/[aeiouy]/g;"$^$&$^$&"!ge

Run with perl -pe. Assumes the input is all lowercase.

s![aeiouy]+(.)\K.*!($1=~y/bcdfgkpstvz/pgtvkgbzdfs/r.$&x/[aeiouy]/g)x2!ge

Source Link

answered May 31, 2017 at 12:28

Grimmy

s![aeiouy]+(.)\K.*!$^=$1=~y/bcdfgkpstvz/pgtvkgbzdfs/r;/[aeiouy]/g;"$^$&$^$&"!ge

Run with perl -pe. Assumes the input is all lowercase.