diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-13 21:22:48 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-13 21:22:48 +0100 |
| commit | 8860d26113418e8804d5ea4aa55c03c7a7240a8d (patch) | |
| tree | 933f9ff3976477bbe8b76d36a29296b27f91333c | |
| parent | 649e1f2c52bc1d2134b7db4fc33deeaf1b1effd4 (diff) | |
| download | perlweeklychallenge-club-8860d26113418e8804d5ea4aa55c03c7a7240a8d.tar.gz perlweeklychallenge-club-8860d26113418e8804d5ea4aa55c03c7a7240a8d.tar.bz2 perlweeklychallenge-club-8860d26113418e8804d5ea4aa55c03c7a7240a8d.zip | |
- Tidied up Raku solution.
| -rw-r--r-- | challenge-077/mohammad-anwar/raku/ch-2.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-077/mohammad-anwar/raku/ch-2.raku b/challenge-077/mohammad-anwar/raku/ch-2.raku index 8773c02fe8..2699c5cdc8 100644 --- a/challenge-077/mohammad-anwar/raku/ch-2.raku +++ b/challenge-077/mohammad-anwar/raku/ch-2.raku @@ -13,8 +13,7 @@ use v6.d; sub MAIN(Int :$R is copy where { $R >= 2 } = 3, Int :$C is copy where { $C >= 2 } = 3) { - my $matrix = get-matrix(--$R, --$C); - find-lonely-x($matrix).say; + find-lonely-x(get-matrix(--$R, --$C)).say; } # |