aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark A <andemark@a-iot1t.uch.ad.pvt>2021-09-02 05:45:51 -0600
committerMark A <andemark@a-iot1t.uch.ad.pvt>2021-09-02 05:45:51 -0600
commit9170f8a547d40cf4d470b65aa769027a4ffcaf10 (patch)
tree4fb8b5bd4e6a6d14a67d1452c2f1c6555c1b72c7
parent00be8f4183dedfbabc392085d2b77d0093a6f55c (diff)
downloadperlweeklychallenge-club-9170f8a547d40cf4d470b65aa769027a4ffcaf10.tar.gz
perlweeklychallenge-club-9170f8a547d40cf4d470b65aa769027a4ffcaf10.tar.bz2
perlweeklychallenge-club-9170f8a547d40cf4d470b65aa769027a4ffcaf10.zip
ch-1.raku do-over
-rw-r--r--challenge-128/mark-anderson/raku/ch-1.raku1
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-128/mark-anderson/raku/ch-1.raku b/challenge-128/mark-anderson/raku/ch-1.raku
index c6ad6f956a..f33ab749ad 100644
--- a/challenge-128/mark-anderson/raku/ch-1.raku
+++ b/challenge-128/mark-anderson/raku/ch-1.raku
@@ -66,7 +66,6 @@ sub max-sub-matrix(+@matrix)
for (^@matrix).combinations: 2 -> ($first-row, $last-row)
{
my @cols = ([(&)] @zero-indices[$first-row .. $last-row]).keys.sort;
-
next unless @cols > 1;
my $rows = $last-row - $first-row + 1;