[Cascavel-pm] [Golf] Converter números romanos para decimais

[Andrew Savige]

> Mas se alguém quiser fazer um "golf paralelo" aqui na lista, eu tô
> tentando resolver esse aqui:
>
> http://codegolf.com/roman-to-decimal
>
> Mas não acho que vou conseguir nada muito abaixo de 105 pontos, sendo
> que no site o primeiro lugar tá em 55 :-(
>
>update:  cheguei a 93
>
> []s
> Wendel
>
> ps: minha tacada atual é:
> $b=.5;$$_=$b*=5-($a^=3)for IVXLCDM=~/./g;$\+=($$_<$x?-1:1)*($x=$$_)for
> reverse<>=~/./g;print

> $b=.5;$$_=$b*=5-($a^=3)for IVXLCDM=~/./g

  $$_=$b*=$^F^=7for$b=.1,IVXLCDM=~/./g

or:

  $b=++$I;$$_=$b*=$^F^=7for V,X,L,C,D,M

> $\+=($$_<$x?-1:1)

  $\-=($$_<$x||-1)

Cheers,
/-\


      Make the switch to the world's best email. Get the new Yahoo!7 Mail now. www.yahoo7.com.au/worldsbestemail