diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-09-04 19:35:18 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-09-04 19:35:18 -0400 |
| commit | fec3a326ddb1baf62d9f7fc21d4bba3b4e7d04c3 (patch) | |
| tree | f2b2dd8b582a1f6b57f7d65c53b823e19085c367 | |
| parent | 1514229093fd893107ebe3884f86612a1d52dcc8 (diff) | |
| download | perlweeklychallenge-club-fec3a326ddb1baf62d9f7fc21d4bba3b4e7d04c3.tar.gz perlweeklychallenge-club-fec3a326ddb1baf62d9f7fc21d4bba3b4e7d04c3.tar.bz2 perlweeklychallenge-club-fec3a326ddb1baf62d9f7fc21d4bba3b4e7d04c3.zip | |
removed check for blank spaces
The prefix checks take care of this so don't need a special case for them.
| -rw-r--r-- | challenge-076/walt-mankowski/perl/ch-2.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-076/walt-mankowski/perl/ch-2.pl b/challenge-076/walt-mankowski/perl/ch-2.pl index 50af98ce31..7a707deac9 100644 --- a/challenge-076/walt-mankowski/perl/ch-2.pl +++ b/challenge-076/walt-mankowski/perl/ch-2.pl @@ -42,7 +42,6 @@ my @dirs = ([ 0, 1], # e my @found; for my $row (0..$rows-1) { for my $col (0..$cols-1) { - next if $grid->[$row][$col] eq ' '; for my $dir (@dirs) { push @found, search_grid($grid, $row, $col, $dir, $words, $prefixes); } |