From ae492b367e48b9da6a01292c33cd127703903aaa Mon Sep 17 00:00:00 2001 From: Mark A Date: Thu, 2 Sep 2021 05:41:17 -0600 Subject: ch-1.raku do-over --- challenge-128/mark-anderson/raku/ch-1.raku | 4 ++-- 1 file 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; -- cgit