diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-02 05:43:39 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-02 05:43:39 -0600 |
| commit | 00be8f4183dedfbabc392085d2b77d0093a6f55c (patch) | |
| tree | 49bbbfcd527c48536426ee4d5f85c38747bde65d /challenge-128 | |
| parent | ae492b367e48b9da6a01292c33cd127703903aaa (diff) | |
| download | perlweeklychallenge-club-00be8f4183dedfbabc392085d2b77d0093a6f55c.tar.gz perlweeklychallenge-club-00be8f4183dedfbabc392085d2b77d0093a6f55c.tar.bz2 perlweeklychallenge-club-00be8f4183dedfbabc392085d2b77d0093a6f55c.zip | |
ch-1.raku do-over
Diffstat (limited to 'challenge-128')
| -rw-r--r-- | challenge-128/mark-anderson/raku/ch-1.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-128/mark-anderson/raku/ch-1.raku b/challenge-128/mark-anderson/raku/ch-1.raku index a835041e50..c6ad6f956a 100644 --- a/challenge-128/mark-anderson/raku/ch-1.raku +++ b/challenge-128/mark-anderson/raku/ch-1.raku @@ -65,8 +65,7 @@ sub max-sub-matrix(+@matrix) for (^@matrix).combinations: 2 -> ($first-row, $last-row) { - my @cols = ([(&)] @zero-indices[$first-row .. $last-row]).keys - .sort; + my @cols = ([(&)] @zero-indices[$first-row .. $last-row]).keys.sort; next unless @cols > 1; my $rows = $last-row - $first-row + 1; |