diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-11-10 20:27:12 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-11-10 20:27:12 -0700 |
| commit | a01ea9465ff6bdddee6ed55a6bd203e6d1e13d0f (patch) | |
| tree | 2b2c3d2b7de73513ee893b03c230cd0b0181a1ea | |
| parent | 3d6d4c67bed38be157102eae364b49d53971a859 (diff) | |
| download | perlweeklychallenge-club-a01ea9465ff6bdddee6ed55a6bd203e6d1e13d0f.tar.gz perlweeklychallenge-club-a01ea9465ff6bdddee6ed55a6bd203e6d1e13d0f.tar.bz2 perlweeklychallenge-club-a01ea9465ff6bdddee6ed55a6bd203e6d1e13d0f.zip | |
ch-2.p6
| -rw-r--r-- | challenge-086/mark-anderson/raku/ch-2.p6 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-086/mark-anderson/raku/ch-2.p6 b/challenge-086/mark-anderson/raku/ch-2.p6 index 9672e8d61d..79c1a4b579 100644 --- a/challenge-086/mark-anderson/raku/ch-2.p6 +++ b/challenge-086/mark-anderson/raku/ch-2.p6 @@ -51,9 +51,7 @@ sub is-safe(@grid, $row, $col, $num) { my $r = $row - $row mod 3; my $c = $col - $col mod 3; - return False if $num (elem) (@grid[$r ][$c..$c+2], - @grid[$r+1][$c..$c+2], - @grid[$r+2][$c..$c+2]).flat; + return False if $num (elem) @grid[$r..$r+2].map(*[$c..$c+2]).flat; return True; } |