Merge pull request #2229 from seaker/master

Raku solutions by Feng Chang, challenge #077

2 files changed, 54 insertions, 0 deletions

diff --git a/challenge-077/feng-chang/raku/ch-1.raku b/challenge-077/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..18676223f9
--- /dev/null
+++ b/challenge-077/feng-chang/raku/ch-1.raku
@@ -0,0 +1,29 @@
+#!/bin/env raku
+
+my Bool $found = False;
+my $Num;
+
+sub fib-sum(Int:D $N, @fibs, @num) {
+    if $N == 0 {
+        say "{ @num.join(' + ') } = $Num";
+        $found = True;
+        return;
+    }
+    return unless @fibs;
+    return if $N < @fibs[0];
+
+    my @F = @fibs;
+    my @N = @num;
+    @N.push(@F.shift);
+    fib-sum($N - @fibs[0], @F, @N);
+
+    fib-sum($N, @F, @num);
+}
+
+sub MAIN(Int:D $N) {
+    my Int @fibs = 1, 2, * + * ...^ * > $N;
+    $Num = $N;
+
+    fib-sum($N, @fibs, Array.new);
+    0.say unless $found;
+}
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;