diff options
| -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; |