note
Anonymous Monk
Since you're well past my meagre 59 (from the use.perl thread), I might as well show it:
<pre>
$_=shift;y/0-9A-Z/\0-#/;(s/.//,($a*=36)+=ord)while length
</pre>
Yes, no output-- the game rules were unclear that way, too.
Using your tricks I can get down to -- 43.
<pre>
$_=pop;y/0-9A-Z/\0-#/;($a*=46)+=ord for/./g
</pre>
If only the null byte were legal in y///, then the above could become 42...
<pre>
-- <a href="http://www.iki.fi/jhi/">jhi</a>
</pre>
142759
142821
6