diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-05 10:32:11 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-09-05 10:32:11 -0600 |
| commit | 1ec10751b9a7ad529451987c583e3d6d1508a3af (patch) | |
| tree | dc8846010117d10bcd7f9491272f38d081d73dc3 | |
| parent | 3dfcda69ead95ea9632d38b36ffb8b07be3a3654 (diff) | |
| download | perlweeklychallenge-club-1ec10751b9a7ad529451987c583e3d6d1508a3af.tar.gz perlweeklychallenge-club-1ec10751b9a7ad529451987c583e3d6d1508a3af.tar.bz2 perlweeklychallenge-club-1ec10751b9a7ad529451987c583e3d6d1508a3af.zip | |
ch-1.raku edit
| -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 dad21d38c4..a4562cded4 100644 --- a/challenge-128/mark-anderson/raku/ch-1.raku +++ b/challenge-128/mark-anderson/raku/ch-1.raku @@ -63,7 +63,7 @@ sub max-sub-matrix(+@matrix) my @zero-indices = @matrix.map({ .grep(0, :k) })>>.Array; - for (^@matrix).combinations: 2 -> ($first-row, $last-row) + for (^@zero-indices).combinations: 2 -> ($first-row, $last-row) { my @cols = ([(&)] @zero-indices[$first-row .. $last-row]).keys.sort; next unless @cols > 1; |