Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: The Perl Review

by arhuman (Vicar)
on Feb 03, 2002 at 22:39 UTC ( #143118=note: print w/ replies, xml ) Need Help??


in reply to The Perl Review

Hey ! I just read the (GREAT) magazine, here's my proposition :

perl -F// -ane'print+(map{($r*=36)+=/\d/?$_:-55+ord$_}@F)[-2]'

it's a filter so call it as usual through a pipe :
echo 1Z|perl -F// -ane'print+(map{($r*=36)+=/\d/?$_:-55+ord$_}@F)[-2]'

UPDATE :
Congratulations to all of you.
After reading your solutions, I found several neat tricks to enhance mine
(Epecially thanks to blakem and tilly's post) .
'ord' should definitly replace 'ord$_'...
For some (yet unknown) reasons I can't replace ($r*=36)+=... by $r=$r*36+...
(I'll work on it tomorrow, I REALLY need to sleep ;-)
Last :
perl -F// -ane'print+(map{($r*=36)+=/\d/?$_:-55+ord}@F)[-2]'


"Only Bad Coders Code Badly In Perl" (OBC2BIP)


Comment on Re: The Perl Review
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2015-07-05 06:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls