diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-07-06 21:31:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-07-06 21:31:33 +0100 |
| commit | 0486402dfb99dc3b6d940989cbe83b3ae0153b8b (patch) | |
| tree | d8bbf0bfc7ecb25b147800526090035b003ce2fe | |
| parent | 2cd5c6d76f5516d569b0a7b0d9ade83a89318619 (diff) | |
| parent | 9c2803fecbae38c4eb9859b2273168c7b09370ba (diff) | |
| download | perlweeklychallenge-club-0486402dfb99dc3b6d940989cbe83b3ae0153b8b.tar.gz perlweeklychallenge-club-0486402dfb99dc3b6d940989cbe83b3ae0153b8b.tar.bz2 perlweeklychallenge-club-0486402dfb99dc3b6d940989cbe83b3ae0153b8b.zip | |
Merge pull request #1915 from andemark/branch-for-challenge-068
Challenge 68 Solution 1
| -rw-r--r-- | challenge-068/mark-anderson/raku/ch-1.raku | 4 |
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; |
