Back to task

88 symbols perl
Thu Sep 4 20:57:14 2014 gabrielmad
#!/usr/bin/perl -paF
$x+=($d={M,1000,D,500,C,100,L,50,X,10,V,5,I,1}->{$_})-2*$l*($l<$d),$l=$d for@F;$_=$x


Leave a comment

Parsed as Markdown

Login to leave a comment