Help for this page

Select Code to Download

Select or download this

my %from_roman = (
    I => 1,
...
    $n += $from_roman{$_} for split //, $roman;
    $n
}