Re: Re: Re (tilly) 2: Fore!!! (was The Perl Review)

[Anonymous Monk]

Since you're well past my meagre 59 (from the use.perl thread), I might as well show it:

$_=shift;y/0-9A-Z/\0-#/;(s/.//,($a*=36)+=ord)while length

Yes, no output-- the game rules were unclear that way, too. Using your tricks I can get down to -- 43.

$_=pop;y/0-9A-Z/\0-#/;($a*=46)+=ord for/./g

If only the null byte were legal in y///, then the above could become 42...

-- jhi