diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-08-31 15:49:36 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-08-31 16:06:39 +0200 |
| commit | dd6c2790c488c5c8eedadaf9966a07f25077af5d (patch) | |
| tree | b5e21240c4a4c3ec5948142c4d40bcda7be37ff6 | |
| parent | 5a4f6107043cdde823901d9ded1fc70df97852c6 (diff) | |
| download | perlweeklychallenge-club-dd6c2790c488c5c8eedadaf9966a07f25077af5d.tar.gz perlweeklychallenge-club-dd6c2790c488c5c8eedadaf9966a07f25077af5d.tar.bz2 perlweeklychallenge-club-dd6c2790c488c5c8eedadaf9966a07f25077af5d.zip | |
Fix typo
| -rw-r--r-- | challenge-076/luca-ferrari/raku/ch-2.p6 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-076/luca-ferrari/raku/ch-2.p6 b/challenge-076/luca-ferrari/raku/ch-2.p6 index 221824e381..76ea47631e 100644 --- a/challenge-076/luca-ferrari/raku/ch-2.p6 +++ b/challenge-076/luca-ferrari/raku/ch-2.p6 @@ -42,13 +42,12 @@ sub diagonal-words( @grid-chars, $up-to-down = True, $left-to-right = True ) { sub MAIN( $grid-file-name = 'grid.txt', $word-file-name = '/usr/share/dict/words', $min-length = 3 ) { - say "Searching word from $word-file-name into grid $grid-file-name"; + say "Searching words from $word-file-name into grid $grid-file-name"; my @found-words; # get all the lines in the grid lowercase my @grid-chars = $grid-file-name.IO.lines.map( *.lc.split( /\s/, :skip-empty ).Array ).Array; - say @grid-chars; my ( @horizontals, @verticals, @diagonals ); for @grid-chars { |