challenge 077, raku #2

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-077/feng-chang/raku/ch-2.raku b/challenge-077/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..b9fdf10332
--- /dev/null
+++ b/challenge-077/feng-chang/raku/ch-2.raku
@@ -0,0 +1,25 @@
+#!/bin/env raku
+
+my @a;
+
+for $*IN.lines -> $line {
+    @a.push($line.comb.Array.unshift('O').push('O'));
+}
+
+my UInt $rows  = @a.elems;
+my UInt $width = @a[0].elems - 2;
+@a.unshift(['O' xx $width + 2]);;
+@a.push(['O' xx $width + 2]);;
+
+my UInt $cnt = 0;
+for 1..$rows -> $i {
+    for 1..$width -> $j {
+        my $junc = all(@a[$i-1;$j-1], @a[$i-1;$j], @a[$i-1;$j+1],
+                       @a[$i;$j-1],                @a[$i;$j+1],
+                       @a[$i+1;$j-1], @a[$i+1;$j], @a[$i+1;$j+1]
+                   );
+        ++$cnt if @a[$i;$j] eq 'X' and $junc eq 'O';
+    }
+}
+
+say $cnt;