diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-02 05:41:17 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-02 05:41:17 -0600 |
| commit | ae492b367e48b9da6a01292c33cd127703903aaa (patch) | |
| tree | 883d4ff5e8b4ff73f5e03069a6c181155670b92a | |
| parent | 1be6654774834f3e0c5aea80725e9a4f9d9c96f5 (diff) | |
| download | perlweeklychallenge-club-ae492b367e48b9da6a01292c33cd127703903aaa.tar.gz perlweeklychallenge-club-ae492b367e48b9da6a01292c33cd127703903aaa.tar.bz2 perlweeklychallenge-club-ae492b367e48b9da6a01292c33cd127703903aaa.zip | |
ch-1.raku do-over
| -rw-r--r-- | challenge-128/mark-anderson/raku/ch-1.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-128/mark-anderson/raku/ch-1.raku b/challenge-128/mark-anderson/raku/ch-1.raku index 140e794159..a835041e50 100644 --- a/challenge-128/mark-anderson/raku/ch-1.raku +++ b/challenge-128/mark-anderson/raku/ch-1.raku @@ -66,8 +66,8 @@ sub max-sub-matrix(+@matrix) for (^@matrix).combinations: 2 -> ($first-row, $last-row) { my @cols = ([(&)] @zero-indices[$first-row .. $last-row]).keys - .sort - .Array; + .sort; + next unless @cols > 1; my $rows = $last-row - $first-row + 1; |