diff options
| author | Ryan Thompson <i@ry.ca> | 2020-02-16 17:35:42 -0600 |
|---|---|---|
| committer | Ryan Thompson <i@ry.ca> | 2020-02-16 17:35:42 -0600 |
| commit | 01914fa6aeab6d4468e6f7ad14220749a54f25a2 (patch) | |
| tree | 120754d43c3183baece00a99545ff23f4dd194c6 | |
| parent | aa2f56ee9b564c7f21798be0d4dc9f7b35d9e399 (diff) | |
| download | perlweeklychallenge-club-01914fa6aeab6d4468e6f7ad14220749a54f25a2.tar.gz perlweeklychallenge-club-01914fa6aeab6d4468e6f7ad14220749a54f25a2.tar.bz2 perlweeklychallenge-club-01914fa6aeab6d4468e6f7ad14220749a54f25a2.zip | |
Remove extra output for blog post
| -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 |