in reply to The Perl Review
Here was my final submission, from a beginner ... 71
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 Section
Meditations