Added weekly Raku solution @2colours

2 files changed, 25 insertions, 0 deletions

diff --git a/challenge-164/2colours/raku/ch-1.raku b/challenge-164/2colours/raku/ch-1.raku
new file mode 100755
index 0000000000..694921a8d2
--- /dev/null
+++ b/challenge-164/2colours/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/usr/bin/env raku
+
+sub is-palindrome($num) {
+  $_ ~~ .reverse given $num.comb.List
+}
+
+(^1000).grep: { .is-prime && .&is-palindrome } andthen .join: ', ' andthen .say;
diff --git a/challenge-164/2colours/raku/ch-2.raku b/challenge-164/2colours/raku/ch-2.raku
new file mode 100755
index 0000000000..415a910a58
--- /dev/null
+++ b/challenge-164/2colours/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub is-happy-proactive($num) {
+  state %happy-cache;
+  without %happy-cache{$num} {
+    my @sequence-until-period <== $num, *.comb.map(* ** 2).sum ... *
+      andthen [\,] $_
+      andthen .toggle: !*.repeated
+      andthen .tail;
+    %happy-cache{$_} = * xx (.tail == 1) given @sequence-until-period;   
+  }
+  %happy-cache{$num}
+}
+
+(^Inf).grep: &is-happy-proactive
+  andthen .head: 8
+  andthen .join: ', '
+  andthen .say; 
\ No newline at end of file