Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Code Golf: Four is magic

by thundergnat (Deacon)
on Jul 14, 2010 at 16:53 UTC ( #849566=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #234567890123456789012345678901234567890123456789012345678901234567890
    +1234567890123456789012345678901234567890123456789012
    @u="0335443554366887798866555766"=~/./g;$_+=<>;warn"$_ is ",$_=$_-4?$_
    +<20?$u[$_]||4:$u[chop]+$u[$_+18]:magic,".\n"until/a/
    
  2. or download this
    #234567890123456789012345678901234567890123456789012345678901234567890
    +12345678901234567890123456789012345678901234567890123
    @u='0335443554366887798866555766'=~/./g;$_+=<>;print"$_ is ",$_=$_-4?$
    +_<20?$u[$_]||4:$u[chop]+$u[$_+18]:magic,".\n"until/a/
    
  3. or download this
    #    12345678901234567890123456789012345678901234567890123456789012345
    +67890123456789012345678901234567890123456789012345678901234
    perl -E'@u="0335443554366887798866555766"=~/./g;$_+=<>;say"$_ is ",$_=
    +$_-4?$_<20?$u[$_]||4:$u[chop]+$u[18+$_]:magic,"."while/\d/'
    
  4. or download this
    #234567890123456789012345678901234567890123456789012345678901234567890
    +123456789012345678901234567890123456789012345678901234
    @u='0335443554366887798866555766'=~/./g;$_=pop;print"$_ is ",$_=$_-4?$
    +_<20?$u[$_]||4:$u[chop]+$u[$_+18]:magic,".\n"until/\D/
    
  5. or download this
    #    12345678901234567890123456789012345678901234567890123456789012345
    +67890123456789012345678901234567890123456789012345678901
    perl -E'@u="0335443554366887798866555766"=~/./g;$_+=<>;say"$_ is ",$_=
    +$_-4?$_<20?$u[$_]:$u[chop]+$u[18+$_]:magic,"."while/\d/'
    
  6. or download this
    #234567890123456789012345678901234567890123456789012345678901234567890
    +123456789012345678901234567890123456789012345678901
    @u='0335443554366887798866555766'=~/./g;$_=pop;print"$_ is ",$_=$_-4?$
    +_<20?$u[$_]:$u[chop]+$u[$_+18]:magic,".\n"until/\D/
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (14)
As of 2014-09-18 20:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (124 votes), past polls