From 962ab7202f3b85e102bf7803015fc2029a51ab4e Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Fri, 4 Sep 2020 19:29:28 -0400
Subject: work in lowercase instead of upper

---
 challenge-076/walt-mankowski/perl/ch-2.pl | 3 +--
 1 file changed, 1 insertion(+), 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)) {
-- 
cgit