diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-09-04 19:29:28 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-09-04 19:29:28 -0400 |
| commit | 962ab7202f3b85e102bf7803015fc2029a51ab4e (patch) | |
| tree | ca2ad5e613111bfdb7853e901a29c5ddcdc0de5b | |
| parent | f2e368e5a79035df34ffb5c545c2ece92775b555 (diff) | |
| download | perlweeklychallenge-club-962ab7202f3b85e102bf7803015fc2029a51ab4e.tar.gz perlweeklychallenge-club-962ab7202f3b85e102bf7803015fc2029a51ab4e.tar.bz2 perlweeklychallenge-club-962ab7202f3b85e102bf7803015fc2029a51ab4e.zip | |
work in lowercase instead of upper
| -rw-r--r-- | challenge-076/walt-mankowski/perl/ch-2.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-076/walt-mankowski/perl/ch-2.pl b/challenge-076/walt-mankowski/perl/ch-2.pl index 1fc95c63bd..cef1882581 100644 --- a/challenge-076/walt-mankowski/perl/ch-2.pl +++ b/challenge-076/walt-mankowski/perl/ch-2.pl @@ -83,7 +83,7 @@ sub read_grid($grid_name) { my @c = split //, $line; $grid[$row][0] = ' '; for my $i (0..$#c) { - $grid[$row][$i+1] = $c[$i]; + $grid[$row][$i+1] = lc $c[$i]; } $grid[$row][$width-1] = ' '; $row++; @@ -105,7 +105,6 @@ sub parse_dict($dict_name, $min_len) { chomp $word; next unless length($word) >= $min_len; next unless $word =~ /^[a-z]+$/; - $word =~ tr/a-z/A-Z/; $words{$word} = 1; for my $len (1..length($word)) { |