diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-26 22:17:06 +0100 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-26 22:17:06 +0100 |
| commit | 72363f759a53ee675bd981e4f4035d5346380b9f (patch) | |
| tree | 8e7dab4fb82a67e010fffb4b958c525441472491 /challenge-084/markus-holzer/raku | |
| parent | dde00758f57a01e424cbd98117db89279f1fcdb8 (diff) | |
| download | perlweeklychallenge-club-72363f759a53ee675bd981e4f4035d5346380b9f.tar.gz perlweeklychallenge-club-72363f759a53ee675bd981e4f4035d5346380b9f.tar.bz2 perlweeklychallenge-club-72363f759a53ee675bd981e4f4035d5346380b9f.zip | |
dont really need a junction
Diffstat (limited to 'challenge-084/markus-holzer/raku')
| -rw-r--r-- | challenge-084/markus-holzer/raku/ch-2.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-084/markus-holzer/raku/ch-2.raku b/challenge-084/markus-holzer/raku/ch-2.raku index e7b70071b7..254e1d6441 100644 --- a/challenge-084/markus-holzer/raku/ch-2.raku +++ b/challenge-084/markus-holzer/raku/ch-2.raku @@ -10,9 +10,9 @@ my @s = gather for [X] 0..^$h, 0..^$w -> ($r, $c) { # I had no idea min is also an infix until yesterdays review video for 1 ..^ ($h min $w) - ($r max $c) -> $o { take $r, $c, $o if - @matrix[ $r+$o; $c+$o ] & - @matrix[ $r+$o; $c ] & - @matrix[ $r; $c+$o ] & + @matrix[ $r+$o; $c+$o ] && + @matrix[ $r+$o; $c ] && + @matrix[ $r; $c+$o ] && @matrix[ $r; $c] }} say +@s; |