diff options
| author | Adam Russell <ac.russell@live.com> | 2019-04-26 19:24:12 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2019-04-26 19:24:12 -0400 |
| commit | d1fca5d3f708dbb6e8e1350f5b52e7f44cb92f3f (patch) | |
| tree | 6fe54f6a287d9ac950a8dd080afe67ed23cea2f0 /challenge-005 | |
| parent | 478b5ee21deeaacb48b6e1c1b5e1c03f28fa6f02 (diff) | |
| download | perlweeklychallenge-club-d1fca5d3f708dbb6e8e1350f5b52e7f44cb92f3f.tar.gz perlweeklychallenge-club-d1fca5d3f708dbb6e8e1350f5b52e7f44cb92f3f.tar.bz2 perlweeklychallenge-club-d1fca5d3f708dbb6e8e1350f5b52e7f44cb92f3f.zip | |
fixed ch-1.pl
Diffstat (limited to 'challenge-005')
| -rw-r--r-- | challenge-005/adam-russell/perl5/ch-1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-005/adam-russell/perl5/ch-1.pl b/challenge-005/adam-russell/perl5/ch-1.pl index e1b0c61e0a..cca7d2af5b 100644 --- a/challenge-005/adam-russell/perl5/ch-1.pl +++ b/challenge-005/adam-russell/perl5/ch-1.pl @@ -37,8 +37,9 @@ my %letter_factor = ( ## # Main ## -my $test_word = $ARGV[0]; +my $test_word = lc($ARGV[0]); $test_word =~ tr/-//d; +print "$test_word\n"; my @letters = split(//, $test_word); my $test_word_product = 1; map {$test_word_product *= $_} map{$letter_factor{$_}} @letters; |