diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-08-30 11:15:19 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-08-30 11:15:19 +0200 |
| commit | ae9d4bc0229c54030167383b807cf48e87d82bef (patch) | |
| tree | eb877f4c1ddf57b30b732105035dce1c7d59d054 | |
| parent | 252ac2f826a6cc3bf20ff55303901330809996e5 (diff) | |
| download | perlweeklychallenge-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.p6 | 5 |
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; |
