diff options
| author | Abigail <abigail@abigail.be> | 2020-11-11 14:22:59 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-11-11 14:22:59 +0100 |
| commit | c8538d2ca4d8315d87d9800933d037b1353d9b45 (patch) | |
| tree | 0e2de0cb7ed2827b3d5c5202564de52fa5521292 | |
| parent | b8cec8a91a5e5f6e637ed9cdff26c3b37bc5cc7e (diff) | |
| download | perlweeklychallenge-club-c8538d2ca4d8315d87d9800933d037b1353d9b45.tar.gz perlweeklychallenge-club-c8538d2ca4d8315d87d9800933d037b1353d9b45.tar.bz2 perlweeklychallenge-club-c8538d2ca4d8315d87d9800933d037b1353d9b45.zip | |
Ignore lines not containing clues.
That is, any line which doesn't contain an underscore, digit or
capital ASCII letter will be ignored. This makes inputting large
sudoku's a tad bit easier, allowing blank lines or hyphens between blocks.
| -rw-r--r-- | challenge-086/abigail/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-086/abigail/perl/ch-2.pl b/challenge-086/abigail/perl/ch-2.pl index 27f5a28b38..ab4cdc766b 100644 --- a/challenge-086/abigail/perl/ch-2.pl +++ b/challenge-086/abigail/perl/ch-2.pl @@ -19,7 +19,8 @@ use experimental 'lexical_subs'; my @sudoku = map {[map {/_/ ? 0 : /[A-Z]/ ? 10 + ord ($_) - ord ('A') : $_} - /\b(?:_+|[1-9][0-9]*|[A-Z])\b/g]} <>; + /\b(?:_+|[1-9][0-9]*|[A-Z])\b/g]} + grep {/[_1-9A-Z]/} <>; my $SIZE = @sudoku; my @INDICES = (0 .. $SIZE - 1); my @ELEMENTS = (1 .. $SIZE); |