From cdd1b6a4c2f7407f5393a0dc88f35a126be96213 Mon Sep 17 00:00:00 2001 From: Guillermo Ramos Date: Thu, 30 May 2019 22:17:56 +0200 Subject: [010] Format --- 010/ch1.pl | 2 ++ 1 file changed, 2 insertions(+) (limited to '010/ch1.pl') 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) -- cgit v1.2.3