Merge pull request #6454 from 2colours/branch-for-challenge-173

Week 173 solutions by 2colours

2 files changed, 18 insertions, 0 deletions

diff --git a/challenge-173/2colours/raku/ch-1.raku b/challenge-173/2colours/raku/ch-1.raku
new file mode 100755
index 0000000000..a7e8f92a7b
--- /dev/null
+++ b/challenge-173/2colours/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+
+subset Digit of Int where *.chars == 1;
+
+sub infix:<nN>(Digit() $a, Digit() $b) is assoc<chain> {
+  abs($a - $b) == 1
+}
+
+my $n = prompt 'Input: ';
+say [nN] $n.comb;
diff --git a/challenge-173/2colours/raku/ch-2.raku b/challenge-173/2colours/raku/ch-2.raku
new file mode 100755
index 0000000000..93488ab87c
--- /dev/null
+++ b/challenge-173/2colours/raku/ch-2.raku
@@ -0,0 +1,7 @@
+#!/usr/bin/env raku
+
+
+(2,), { my $new = 1 + [*] .[]; (|$_, $new) } ... { $_ == 10 } andthen
+  .tail
+  .join: "\n" andthen
+  .say;