summaryrefslogtreecommitdiff
path: root/010
diff options
context:
space:
mode:
Diffstat (limited to '010')
-rwxr-xr-x010/ch1.pl2
1 files changed, 2 insertions, 0 deletions
diff --git a/010/ch1.pl b/010/ch1.pl
index 645f71c..f2073ad 100755
--- a/010/ch1.pl
+++ b/010/ch1.pl
@@ -31,6 +31,7 @@ if ($ARGV[0] eq "--test") {
# roman -> arabic
sub decode {
my @roman = split //, shift;
+
# Decimal value of each roman symbol
my %dec = (
M => 1000,
@@ -65,6 +66,7 @@ sub encode {
die "ERROR: Unable to encode numbers bigger than 9999" if $_[0] > 9999;
my @arabic = split //, shift;
+
my @symbols = ("I", "V", "X", "L", "C", "D", "M");
my @roman; # Return value (roman symbols)