blob: 7affcfa3187ecde23adaa848a9c12a3ad73cb1ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl
# For multiplication, the asterisk must be escaped \*.
use strict;
my $input = join( " ", @ARGV );
if ( $input !~ /.*?([IVXLCDM]+)(.*?)([IVXLCDM]+)/ ) { die "Invalid input" }
my $number1 = $1;
my $operator = $2;
my $number2 = $3;
$operator =~ s/[^\+\-\*\/]//g;
if ( $operator eq '+' ) {
print dec2rom( rom2dec($number1) + rom2dec($number2) );
}
elsif ( $operator eq '-' ) {
print dec2rom( rom2dec($number1) - rom2dec($number2) );
}
elsif ( $operator eq '*' ) {
print dec2rom( rom2dec($number1) * rom2dec($number2) );
}
elsif ( $operator eq '/' ) {
print dec2rom( int( rom2dec($number1) / rom2dec($number2) + .5 ) );
}
else { die "Invalid operator" }
print "\n";
sub dec2rom {
my @rdb = qw(I IV V IX X XL L XC C CD D CM M);
my @ddb = qw(1 4 5 9 10 40 50 90 100 400 500 900 1000);
my $dec = $_[0];
my $rom;
for ( my $x = $#ddb ; $x >= 0 ; $x-- ) {
if ( $dec / $ddb[$x] >= 1 ) {
$rom .= $rdb[$x] x int( $dec / $ddb[$x] );
$dec = $dec - ( $ddb[$x] * int( $dec / $ddb[$x] ) );
}
}
return $rom;
}
sub rom2dec {
my %r2d = (
"I" => 1,
"V" => 5,
"X" => 10,
"L" => 50,
"C" => 100,
"D" => 500,
"M" => 1000
);
my $dec;
my @char = split //, $_[0];
for ( my $x = 0 ; $x <= $#char ; $x++ ) {
my $current = $r2d{ $char[$x] };
my $lookahead = $r2d{ $char[ $x + 1 ] };
if ( $lookahead > $current ) {
$dec += $lookahead - $current;
$x++;
}
else {
$dec += $current;
}
}
return $dec;
}
|
