Back to task

83 symbols perl
Fri Sep 26 00:35:33 2014 gabrielmad
#!/usr/bin/perl -paF
y/IVXLCDM/0-6/,$x+=2*($s=$l)*($s<($l=10**($_/2)*2.5**($_%2/2)))-$l for@F;$_=-$x


Leave a comment

Parsed as Markdown

Login to leave a comment