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

[Juerd]

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'

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

[gmax]

#        1         2        
#234567890123456789012345678
$\=z;$\++for 0..285049;print

Faster, too ;-)

update
Cheating: \:->>


#        1         2        
#2345678901234567890123456
$\=z;$\++for z..perk;print

 _  _ _  _  
(_|| | |(_|><
 _|   

[Anonymous Monk]

So then, if we really want to cheat:

#        1
#234567890123456
print++($_=perk)