Mercurial > repo
view bin/thanks @ 7341:d3c294a55f99
<zgrep> misle/rn @/|a+b@| = { \xe2\x88\x9a(a\xc2\xb2-b\xc2\xb2) if a\xc2\xb2-b\xc2\xb2 \xe2\x89\xa5 0 ; i\xe2\x88\x9a(a\xc2\xb2-b\xc2\xb2) if a\xc2\xb2-b\xc2\xb2 < 0 }
author | HackBot |
---|---|
date | Fri, 01 Apr 2016 04:25:49 +0000 |
parents | 685e004a3372 |
children |
line wrap: on
line source
#!/usr/bin/perl -CSDA $_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Thanks, $_. "; if (/[aeiouyAEIOUY]/) { s/^[^aeiouyAEIOUY]*/Th/; } else { s/^./T/; } print "$_.";