From f838f3d0c6cebe7495c6ce81d371b0208adbcf40 Mon Sep 17 00:00:00 2001
From: Polgár Márton <polgar@astron.hu>
Date: Sun, 17 Jul 2022 10:53:28 +0200
Subject: Week 173 solutions by 2colours

---
 challenge-173/2colours/raku/ch-1.raku | 11 +++++++++++
 challenge-173/2colours/raku/ch-2.raku |  7 +++++++
 2 files changed, 18 insertions(+)
 create mode 100755 challenge-173/2colours/raku/ch-1.raku
 create mode 100755 challenge-173/2colours/raku/ch-2.raku

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;
-- 
cgit