Apparently. :-)
Golf: (just the most obvious things)
perl -pe's!(\d)(\d)(\d)/!chr(64+$1*16+$2*4+$3)!ge' codedataKnow thine commandline switches.
Update: Doh, tilly was a few minutes faster.
Update 2: Slightly longer but I like this better:
perl -pe's!(\d..)/!$x=1;($x*=4)+=$_ for split//,$1;chr$x!ge' codedataUpdate 3: Thanks to tadman:
perl -pe's!(\d..)/!$x=1;($x*=4)+=$_ for$1=~/./g;chr$x!ge' codedataMakeshifts last the longest.
In reply to Re: Canadian Cryptography Contest
by Aristotle
in thread Canadian Cryptography Contest
by jryan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |