From f04da024078df45ad80f095febfc8d4e158e9e08 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 1 Sep 2020 17:27:10 +0100
Subject: - Tidied up solution.

---
 challenge-076/mohammad-anwar/perl/ch-2.pl | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

diff --git a/challenge-076/mohammad-anwar/perl/ch-2.pl b/challenge-076/mohammad-anwar/perl/ch-2.pl
index 94654f4c98..1133a7eddb 100755
--- a/challenge-076/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-076/mohammad-anwar/perl/ch-2.pl
@@ -53,7 +53,7 @@ die "ERROR: Missing grid file.\n" unless defined $GRID;
 die "ERROR: Invalid word size [$SIZE].\n"
     unless (($SIZE =~ /^\d+$/) && ($SIZE > 0));
 
-my $words = search_words($GRID, $SIZE);
+my $words = search_words($DICT, $GRID, $SIZE);
 if (keys %$words) {
     print sprintf("\nFound %d unique words:\n%s\n",
           scalar(keys %$words),
@@ -69,16 +69,17 @@ else {
 # METHODS
 
 sub search_words {
-    my ($grid, $size) = @_;
+    my ($dict, $grid, $size) = @_;
 
-    my $words = ();
+    my $words   = ();
+    my $dicts   = fetch_dicts($dict, $size);
     my $puzzles = fetch_puzzles($grid, $size);
     if (scalar @$puzzles) {
         my $total = $#$puzzles + 1;
         my $index = 1;
         foreach my $puzzle (@$puzzles) {
             print sprintf("\rProcessing record %d of %d.", $index++, $total);
-            $words = match_word($DICT, $SIZE, $puzzle, $words);
+            $words = match_word($dicts, $puzzle, $words);
         }
     }
 
@@ -86,14 +87,25 @@ sub search_words {
 }
 
 sub match_word {
-    my ($dictionary, $size, $puzzle, $words) = @_;
+    my ($dictionary, $puzzle, $words) = @_;
 
+    foreach my $word (keys %$dictionary) {
+        $words->{lc $word} = 1 if ($puzzle =~ /$word/i);
+    }
+
+    return $words;
+}
+
+sub fetch_dicts {
+    my ($dictionary, $size) = @_;
+
+    my $words = ();
     open(my $WORDS, "<", $dictionary)
         or die "ERROR: Can't open $dictionary file: $!.\n";
     while (my $word = <$WORDS>) {
         chomp $word;
         next unless (length($word) >= $size);
-        $words->{lc $word} = 1 if $puzzle =~ /$word/i;
+        $words->{lc $word} = 1;
     }
     close $WORDS;
 
-- 
cgit