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