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

[Wendel Scardua]

Caso alguém se interesse, ontem achei um site de /(Perl|PHP|Ruby)
golf/, 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 :-(

[]s
Wendel

ps: minha tacada atual é:
$b=.5;$a=5;$$_=$b*=$a=7-$a for
split'','IVXLCDM';$d+=($$_<$x?-1:1)*($x=$$_)for reverse
split//,<>;print$d