diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-09-04 19:32:53 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-09-04 19:32:53 -0400 |
| commit | 1514229093fd893107ebe3884f86612a1d52dcc8 (patch) | |
| tree | a0263ea3050cc7b60d4328c70333b7766e026741 /challenge-076 | |
| parent | 962ab7202f3b85e102bf7803015fc2029a51ab4e (diff) | |
| download | perlweeklychallenge-club-1514229093fd893107ebe3884f86612a1d52dcc8.tar.gz perlweeklychallenge-club-1514229093fd893107ebe3884f86612a1d52dcc8.tar.bz2 perlweeklychallenge-club-1514229093fd893107ebe3884f86612a1d52dcc8.zip | |
removed debugging code
Diffstat (limited to 'challenge-076')
| -rw-r--r-- | challenge-076/walt-mankowski/perl/ch-2.pl | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/challenge-076/walt-mankowski/perl/ch-2.pl b/challenge-076/walt-mankowski/perl/ch-2.pl index cef1882581..50af98ce31 100644 --- a/challenge-076/walt-mankowski/perl/ch-2.pl +++ b/challenge-076/walt-mankowski/perl/ch-2.pl @@ -27,18 +27,7 @@ my $grid = read_grid($grid_name); my $rows = $grid->@*; my $cols = $grid->[0]->@*; -# for my $row ($grid->@*) { -# $, = ", "; -# say $row->@*; -# } - my ($words, $prefixes) = parse_dict($dict_name, $MIN_LEN); -# for my $k (sort keys %$prefixes) { -# say $k; -# } -# for my $k (sort keys %$words) { -# say $k; -# } my @dirs = ([ 0, 1], # e [-1, 1], # ne @@ -115,7 +104,6 @@ sub parse_dict($dict_name, $min_len) { } sub search_grid($grid, $row, $col, $dir, $words, $prefixes) { -# say "$row $col @$dir"; my @found; my $s = $grid->[$row][$col]; while (defined $prefixes->{$s}) { @@ -124,9 +112,6 @@ sub search_grid($grid, $row, $col, $dir, $words, $prefixes) { $s .= $grid->[$row][$col]; push @found, $s if defined $words->{$s}; } - # if (@found) { - # say "found @found"; - # } return @found; } |