Mercurial > repo
view bin/blessyou @ 11918:a51467a3be09 draft
<wob_jonas> learn can\'t is the most frequent word whose pronunciation varies between /\xc9\x91\xcb\x90/ and /\xc3\xa6/ depending on dialect. A list is: advance, advantage, after, answer, ask, aunt, branch, can\'t, cast, chance, class, craft, command, contrast, dance, demand, disaster, draft, enhance, example, fast, glass, glance, grant, graph, grass, half, last, laugh, mask, maste
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Thu, 29 Aug 2019 10:06:05 +0000 |
parents | fea38c2307ee |
children |
line wrap: on
line source
#!/usr/bin/perl $_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Bless you, $_. "; if (/[aeiouyAEIOUY0134]/) { s/^[^aeiouyAEIOUY0134]*/Bl/; } else { s/^./B/; } print "$_.";