Using ideas previously mentioned, and throwing in a few of my own, this can be brought down to 98 characters:
sub decipher { @l=(_,a..z,'.');@n{@l}=0..27;@c=@n{split//,pop};$"=my$i;$p[$_[0]*$i++% +@c]=$l[($_+$i)%28]for@c;"@p" }
In reply to (dkubb) Re: (2) (Golf) Untwist
by dkubb
in thread (Golf) Untwist
by ebbeatty
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |