view bin/rainbow.old @ 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 c989a1669243
children
line wrap: on
line source

#!/hackenv/bin/shebang_args_or_input python
import random
import re
w=raw_input()
p=list('x'*len(w)+'C'*int((341-len(w))/3+1))
random.shuffle(p)
p=list(re.sub('C+','C',''.join(p)))
i=(c for c in w)
print ''.join(i.next() if c=='x' else chr(3)+'%02d' % random.randrange(2,15) for c in ['C']+p)