aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLuca Ferrari <fluca1978@gmail.com>2021-08-30 11:15:19 +0200
committerLuca Ferrari <fluca1978@gmail.com>2021-08-30 11:15:19 +0200
commitae9d4bc0229c54030167383b807cf48e87d82bef (patch)
treeeb877f4c1ddf57b30b732105035dce1c7d59d054
parent252ac2f826a6cc3bf20ff55303901330809996e5 (diff)
downloadperlweeklychallenge-club-ae9d4bc0229c54030167383b807cf48e87d82bef.tar.gz
perlweeklychallenge-club-ae9d4bc0229c54030167383b807cf48e87d82bef.tar.bz2
perlweeklychallenge-club-ae9d4bc0229c54030167383b807cf48e87d82bef.zip
Reset the array when a new wider matrix is found
-rw-r--r--challenge-128/luca-ferrari/raku/ch-1.p65
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-128/luca-ferrari/raku/ch-1.p6 b/challenge-128/luca-ferrari/raku/ch-1.p6
index 180ce1ba7a..9294247d68 100644
--- a/challenge-128/luca-ferrari/raku/ch-1.p6
+++ b/challenge-128/luca-ferrari/raku/ch-1.p6
@@ -22,8 +22,7 @@ sub MAIN() {
}
}
- say @zeroes;
-
+
my $rows = 0;
my $cols = 0;
my @sub-matrix;
@@ -42,7 +41,7 @@ sub MAIN() {
}
- $max = $rows * $cols if $rows * $cols > $max;
+ $max = $rows * $cols and @sub-matrix = () if $rows * $cols > $max;
@sub-matrix.push: [ $rows * $cols, $current-row, $current-column, $current-row + $rows - 1, $current-column + $cols - 1 ] if $rows * $cols > 0 && $rows * $cols >= $max;