Back to task

86 symbols perl
Tue Sep 23 16:27:52 2014 vakorol
#!/usr/bin/perl -paF
for(@F){y/IVXLCDM/0-6/;$x+=2*($s=$l)*($s<($l=10**($_/2)*2.5**($_%2/2)))-$l};$_=-$x


Leave a comment

Parsed as Markdown

Login to leave a comment