diff options
| author | Abigail <abigail@abigail.be> | 2020-11-11 20:08:34 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-11-11 20:08:34 +0100 |
| commit | a288bbf8b17e6d9dbbc60ae3f8208d994a93e955 (patch) | |
| tree | 1328638b91cebe0677a884b9afa15107a4e6dc82 | |
| parent | d94c0f0acdbfb27c67728a52f28d06fc944c3e41 (diff) | |
| download | perlweeklychallenge-club-a288bbf8b17e6d9dbbc60ae3f8208d994a93e955.tar.gz perlweeklychallenge-club-a288bbf8b17e6d9dbbc60ae3f8208d994a93e955.tar.bz2 perlweeklychallenge-club-a288bbf8b17e6d9dbbc60ae3f8208d994a93e955.zip | |
Improve readability.
| -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 6b27b80329..e404003888 100644 --- a/challenge-086/abigail/perl/ch-2.pl +++ b/challenge-086/abigail/perl/ch-2.pl @@ -180,7 +180,8 @@ foreach my $x (@INDICES) { # my $set = (1 << ($clue_count)) - 1; foreach my $can_see (sees ($x, $y)) { - $set &= ~(1 << ($sudoku [$$can_see [0]] [$$can_see [1]] - 1)); + my ($see_x, $see_y) = @$can_see; + $set &= ~(1 << ($sudoku [$see_x] [$see_y] - 1)); } $$unsolved {$x, $y} = $set; |