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

[Wendel Scardua]

(depois de enviar pra saopaulo-pm, enviando pra cá também)

Caso alguém se interesse, ontem achei um site de /(Perl|PHP|Ruby) golf/,
chamado codegolf.com , com sistema de submissões, pontuação,
etceteras...

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