map{$t+=(ord()-(/\d/?48:55))*36**$l++}reverse split//,shift;print"$t\n"
If I took out the final ;print"$t\n", that would take it down to 59. Cool to use pop vs. shift ... shave off 2 more strokes. I'll have to remember that for the next round. :)
Jason
In reply to Re: The Perl Review
by Purdy
in thread The Perl Review
by Kit
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |