diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-01 17:08:14 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-01 17:08:14 +0100 |
| commit | 0ace9393e4df7ad70d7eca6881febea3ac855ef1 (patch) | |
| tree | 7140389be6b16a17c8180e9de0dd09b7bf21fa22 /challenge-076 | |
| parent | a318fe3fa51ca70ad0a7fb1c4ab78945e4610fc7 (diff) | |
| download | perlweeklychallenge-club-0ace9393e4df7ad70d7eca6881febea3ac855ef1.tar.gz perlweeklychallenge-club-0ace9393e4df7ad70d7eca6881febea3ac855ef1.tar.bz2 perlweeklychallenge-club-0ace9393e4df7ad70d7eca6881febea3ac855ef1.zip | |
- Tidied up solution.
Diffstat (limited to 'challenge-076')
| -rwxr-xr-x | challenge-076/mohammad-anwar/perl/ch-2.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-076/mohammad-anwar/perl/ch-2.pl b/challenge-076/mohammad-anwar/perl/ch-2.pl index 56dc078a9d..94654f4c98 100755 --- a/challenge-076/mohammad-anwar/perl/ch-2.pl +++ b/challenge-076/mohammad-anwar/perl/ch-2.pl @@ -53,7 +53,6 @@ die "ERROR: Missing grid file.\n" unless defined $GRID; die "ERROR: Invalid word size [$SIZE].\n" unless (($SIZE =~ /^\d+$/) && ($SIZE > 0)); -#my $puzzles = fetch_puzzles($GRID, $SIZE); my $words = search_words($GRID, $SIZE); if (keys %$words) { print sprintf("\nFound %d unique words:\n%s\n", |