Mercurial > repo
view bin/rot13 @ 11845:92a46219c6df draft
<wob_jonas> perl -e open$I,"<",$c="bin/hi"; local $/; $s=<$I>; $s=~s/`words`/\\$ENV{IRC_NICK}/ or die; if (1) { open $O,">",$c or die; print $O $s or die; } print $s;
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Tue, 16 Jul 2019 12:25:30 +0000 |
parents | 6412d84cf279 |
children |
line wrap: on
line source
#!/hackenv/bin/shebang_args_or_input python import re, sys, unicodedata as U def tr(c): m = re.match(r'(.*\bLATIN\b.*\bLETTER )([A-Z])\b(.*)', U.name(c, '')) if m: p, q, r = m.groups() n = ord(q) - ord('A') try: return U.lookup(p + chr(ord('A') + (n + 13) % 26) + r) except KeyError: return c return c def tr2(c): d = tr(c) if d != c: return d else: cs = [unichr(int(x, 16)) for x in U.decomposition(c).split()] ds = [tr(x) for x in cs] if cs != ds: return u''.join(ds) else: return c for c in unicode(sys.stdin.read(), 'utf8'): sys.stdout.write(tr2(c).encode('utf8'))