diff options
| -rw-r--r-- | challenge-076/walt-mankowski/perl/ch-2.pl | 1 | ||||
| -rw-r--r-- | challenge-076/walt-mankowski/perl/search_grid.txt | 19 |
2 files changed, 20 insertions, 0 deletions
diff --git a/challenge-076/walt-mankowski/perl/ch-2.pl b/challenge-076/walt-mankowski/perl/ch-2.pl index 48436c9a0e..1fc95c63bd 100644 --- a/challenge-076/walt-mankowski/perl/ch-2.pl +++ b/challenge-076/walt-mankowski/perl/ch-2.pl @@ -71,6 +71,7 @@ sub read_grid($grid_name) { my $row = 0; while (my $line = <$fh>) { chomp $line; + $line =~ s/ //g; if ($width == 0) { # make top line $width = 2 + length($line); diff --git a/challenge-076/walt-mankowski/perl/search_grid.txt b/challenge-076/walt-mankowski/perl/search_grid.txt new file mode 100644 index 0000000000..31cf2e0fd8 --- /dev/null +++ b/challenge-076/walt-mankowski/perl/search_grid.txt @@ -0,0 +1,19 @@ +B I D E M I A T S U C C O R S T +L D E G G I W Q H O D E E H D P +U S E I R U B U T E A S L A G U +N G N I Z I L A I C O S C N U D +T G M I D S T S A R A R E I F G +S R E N M D C H A S I V E E L I +S C S H A E U E B R O A D M T E +H W O V L P E D D L A I U L S S +R Y O N L A S F C S T A O G O T +I G U S S R R U G O V A R Y O C +N R G P A T N A N G I L A M O O +E I H A C E I V I R U S E S E D +S E T S U D T T G A R L I C N H +H V R M X L W I U M S N S O T B +A E A O F I L C H T O D C A E U +Z S C D F E C A A I I R L N R F +A R I I A N Y U T O O O U T P F +R S E C I S N A B O S C N E R A +D R S M P C U U N E L T E S I L |