in reply to The Perl Review
Here's another similar one:
  p
36 or 47 chars depending on how you count. Another WTDI using recursion:$b=$b*36-48-7*/\D/+ord for pop=~/./g; print$b,$/
which is 31 chars inside the sub and 55 chars total.sub x{ $_&&-7*/\D$/+ord(chop)-48+36*&x } $_=pop; print x,$/
  p
|
---|
In Section
Meditations