Back to task

90 symbols perl
Thu Sep 4 20:53:05 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