Help for this page

Select Code to Download


  1. or download this
    $\+=($n="1E@-"%9995)-$\%$n*2while IXCMVLD=~getc;print
  2. or download this
    $\+=($n=IXCMVLD=~$_*"1E@-"%9995)-$\%$n*2for<>=~/./g;print
  3. or download this
    $\+=($n="1E@-"%9995)-$\%$n*2while IXCMVLD=~getc;print
n=1;$.+=n/2-n%n=10**(494254%C/9)%4999while C=getc;p$.
  4. or download this
    t=0;t+=(n=10**I%9995)-t%n*2while I="IXCMVLD"=~/#{getc.chr}/;p t
t=0;t+=(n=10**I%9995)-t%n*2while I="IXCMVLD".index(getc);p t