http://www.perlmonks.org?node_id=137719


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