Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: First JAPH - Spell perl in two hundred and eighty five thousand and seventy four easy steps

by Juerd (Abbot)
on Jan 10, 2002 at 16:57 UTC ( [id://137719]=note: print w/replies, xml ) Need Help??


in reply to First JAPH - Spell perl in two hundred and eighty five thousand and seventy four easy steps

Haha! ++! Great one!

Nice piece of code for a game of golf too... 
# First attempt
#        1         2         3
#23456789012345678901234567890
$a=a;$a++for 0..285074;print$a

# Second attempt (cheating :P)
print'perl'

[download]

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$

[download]

  • Comment on Re: First JAPH - Spell perl in two hundred and eighty five thousand and seventy four easy steps
  • Select or Download Code

Replies are listed 'Best First'.
Re: Re: First JAPH - Spell perl in 285049 easy steps
by gmax (Abbot) on Jan 10, 2002 at 18:58 UTC 
    #        1         2        
#234567890123456789012345678
$\=z;$\++for 0..285049;print

    [download]
    Faster, too ;-)

    update
    Cheating: \:->> 
    #        1         2        
#2345678901234567890123456
$\=z;$\++for z..perk;print

    [download]
     _  _ _  _  
(_|| | |(_|><
 _|
[reply]
[d/l]
[select]
      So then, if we really want to cheat: 
      #        1
#234567890123456
print++($_=perk)

      [download]
[reply]
[d/l]

In Section Obfuscated Code

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://137719]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others browsing the Monastery: (1)
As of 2024-04-18 23:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found