Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
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?
[TCLion]: when I put the date together it looks like : 2017-Feb-24 (month is the problem)
[1nickt]: good luck, then.
[TCLion]: looking at DateTime documentation in monastery now

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (11)
As of 2017-03-23 15:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (288 votes). Check out past polls.