aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark Anderson <mark@frontrangerunner.com>2020-07-06 14:17:57 -0600
committerMark Anderson <mark@frontrangerunner.com>2020-07-06 14:17:57 -0600
commit9c2803fecbae38c4eb9859b2273168c7b09370ba (patch)
tree81b70671994a6ddcecf657bc0d7d26e535b6c097
parent91c47b77cbb6c3eafc6ac198eeb6bc5b6cee71f3 (diff)
downloadperlweeklychallenge-club-9c2803fecbae38c4eb9859b2273168c7b09370ba.tar.gz
perlweeklychallenge-club-9c2803fecbae38c4eb9859b2273168c7b09370ba.tar.bz2
perlweeklychallenge-club-9c2803fecbae38c4eb9859b2273168c7b09370ba.zip
Challenge 68 Solution 1
-rw-r--r--challenge-068/mark-anderson/raku/ch-1.raku4
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-068/mark-anderson/raku/ch-1.raku b/challenge-068/mark-anderson/raku/ch-1.raku
index d42319fc1d..c14f93fe2a 100644
--- a/challenge-068/mark-anderson/raku/ch-1.raku
+++ b/challenge-068/mark-anderson/raku/ch-1.raku
@@ -21,7 +21,7 @@ my @matrix = [1, 1, 1, 1, 1, 1, 1, 1, 1],
my $rows = @matrix.elems;
my $cols = @matrix[0].elems;
-my @zeroes = gather {
+my @zeros = gather {
for ^$rows -> $r {
for ^$cols -> $c {
take [$r, $c] if @matrix[$r][$c] == 0;
@@ -32,7 +32,7 @@ my @zeroes = gather {
my %seen_row;
my %seen_col;
-for @zeroes -> $p {
+for @zeros -> $p {
unless %seen_row{$p[0]} {
@matrix[$p[0]] = [0 xx $cols];
%seen_row{$p[0]} = True;