diff options
| -rwxr-xr-x | challenge-077/feng-chang/raku/ch-2.raku | 25 |
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; |