Back to task

82 symbols perl
Thu Oct 2 17:05:01 2014 vakorol
#!/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