diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-12 18:09:42 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-12 18:09:42 +0100 |
| commit | 55c79c93617c85a587d151866b8ef76107168c77 (patch) | |
| tree | 4a9796f2b79d6a42c3b82ec2e60713029ccbe169 /challenge-068 | |
| parent | 19aed9595e0ac5ef335b35cae1ea15f004493055 (diff) | |
| download | perlweeklychallenge-club-55c79c93617c85a587d151866b8ef76107168c77.tar.gz perlweeklychallenge-club-55c79c93617c85a587d151866b8ef76107168c77.tar.bz2 perlweeklychallenge-club-55c79c93617c85a587d151866b8ef76107168c77.zip | |
- Tidied up Raku solution.
Diffstat (limited to 'challenge-068')
| -rw-r--r-- | challenge-068/mohammad-anwar/raku/ch-1.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-068/mohammad-anwar/raku/ch-1.raku b/challenge-068/mohammad-anwar/raku/ch-1.raku index a766354a50..ca2722dec5 100644 --- a/challenge-068/mohammad-anwar/raku/ch-1.raku +++ b/challenge-068/mohammad-anwar/raku/ch-1.raku @@ -34,7 +34,7 @@ sub get-matrix(Int $rows where { $rows >= 1 }, my $matrix = []; for 0..$rows -> $r { - for (0..$cols) -> $c { + for 0..$cols -> $c { $matrix.[$r][$c] = $array.pick; } } @@ -60,8 +60,8 @@ sub make-zero-matrix($matrix) { } # fill empty cells, if any. - for (0..$rows) -> $r { - for (0..$cols) -> $c { + for 0..$rows -> $r { + for 0..$cols -> $c { $zero_matrix.[$r][$c] = 1 unless defined $zero_matrix.[$r][$c]; } |