diff options
| -rw-r--r-- | challenge-047/ryan-thompson/perl/ch-1.pl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/challenge-047/ryan-thompson/perl/ch-1.pl b/challenge-047/ryan-thompson/perl/ch-1.pl index 594d24cf62..c731f39790 100644 --- a/challenge-047/ryan-thompson/perl/ch-1.pl +++ b/challenge-047/ryan-thompson/perl/ch-1.pl @@ -15,9 +15,6 @@ my %rom = (I => 1, V => 5, X => 10, L => 50, C => 100, D => 500, M => 1000, IV => 4,IX => 9,XL => 40,XC => 90,CD => 400,CM => 900); my @mor = map { [ $rom{$_} => $_ ] } sort { $rom{$b} <=> $rom{$a} } keys %rom; -use Data::Dump qw/dd/; -dd @mor; - say roman_expr(join ' ', @ARGV) and exit if @ARGV; # Perform arbitrary expressions using Roman numerals |