Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: TIMTOWTDI/golf - counting backwards

by petral (Curate)
on Jan 29, 2002 at 06:01 UTC ( [id://142259]=note: print w/replies, xml ) Need Help??


in reply to TIMTOWTDI/golf - counting backwards

Not as clever as jmcnamara or belg4mit or as short as chipmunk. Oh well.
perl -le'$^=~s#.#$_=$'\'';print s/.|$//g#ge'

[download]

or 5.6:
perl -le'$^=~s/.$/!print@+/e while$^'

[download]

update: but this works with 5.005:
perl -le'$_=$^;s||s/.$/!print length/e|ge'

[download]

  p

In Section Meditations

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://142259]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2024-04-19 21:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found