Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: The golf course looks great, my swing feels good, I like my chances (Part I)

by eyepopslikeamosquito (Chancellor)
on Jun 04, 2009 at 08:50 UTC ( #768354=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $\+=($n="1E@-"%9995)-$\%$n*2while$/=\1,IXCMVLD=~<>;print
    
  2. or download this
    $\+=($n="1E@-"%9995)-$\%$n*2while$/=\1,IXCMVLD=~<>;print
    $\+=$n-2*$n%($n="1E@-"%9995)while$/=\1,IXCMVLD=~<>;print
    ...
    $\+=($n=1+substr'004999',"@-",3)-$\%$n*2while VLDMCXI=~getc;print
    $\+=$'-$\%$'*2while I1V5X10L50C100D500M1e3=~getc;print
    $\+=($n="1E@-"%9995)-$\%$n*2while IXCMVLD=~getc;print
    
  3. or download this
    $b=++$I;$$_=$b*=$^F^=7for V,X,L,C,D,M;
    $\+=$n-$\%$n*2while$n=${+getc};print
    
  4. or download this
    <?for($M=2*$D=5*$C=2*$L=5*$X=2*$V=5*$I=1;$n=${fgetc(STDIN)};$t+=$n-2*$
    +t%$n)?><?=$t;