Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

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

by jynx (Priest)
on Feb 02, 2002 at 01:35 UTC ( #142840=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    # 1 (57 characters)
    # 2 (63 characters)
    print[map$a+=($_-($_|0?0:55))*36**$b++,reverse pop=~/./g]->[-1]
  2. or download this
    # 1 (still 57 characters, with props to petral for the idea)
    # 2 (now 64 characters, with props to blakem for the idea)
    print[map$a+=(/\d/?$_:-55+ord)*36**$b++,reverse pop=~/./g]->[-1]

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://142840]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2015-11-25 08:39 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (672 votes), past polls