Help for this page

Select Code to Download


  1. or download this
    {
  my %rtoa = ( M=>1000, D=>500, C=>100, L=>50, X=>10, V=>5, I=>1 );
...
    reduce { $a+$b-$a%$b*2 } @rtoa{split//, uc(shift)}
  }
}
  2. or download this
    sub roman_to_dec { reduce { $a+$b-$a%$b*2 }
  @{{split/(\d+)/, 'M1000D500C100L50X10V5I1'}}{split//, uc pop}
}
  3. or download this
    sub roman_to_dec { reduce { $a+$b-$a%$b*2 }
  map 'M1000D500C100L50X10V5I1' =~ /$_(\d+)/i, split//, pop
}