From 42c34f22a83f225b6bbda86eb52d49f034e8fb3b Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@andemark.io>
Date: Mon, 12 Aug 2024 06:35:29 +0000
Subject: Challenge 282 Solutions (Raku)

---
 challenge-282/mark-anderson/raku/ch-1.raku | 15 +++++++++++++++
 challenge-282/mark-anderson/raku/ch-2.raku | 12 ++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 challenge-282/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-282/mark-anderson/raku/ch-2.raku

diff --git a/challenge-282/mark-anderson/raku/ch-1.raku b/challenge-282/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..2d79cf61dc
--- /dev/null
+++ b/challenge-282/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply good-integer(12344456),                ("444",);
+is        good-integer(1233334),                 -1;
+is-deeply good-integer(10020003),                ("000",);
+is-deeply good-integer(77711233334445556678999), ("777", "444", "555", "999");
+
+sub good-integer($int)
+{
+    my $m = $int ~~ m:ov/ (^ || \d) ( (\d) $0 $0 ) (\d || $)
+                    <?{ all($0 !== $1[0], $1[0] !== $2) }> /;
+
+    return $m>>.[1]>>.Str || -1
+}
diff --git a/challenge-282/mark-anderson/raku/ch-2.raku b/challenge-282/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..1d7d04df4e
--- /dev/null
+++ b/challenge-282/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+use Test;
+
+is changing-keys("pPeERrLl"),                      3;
+is changing-keys("rRr"),                           0;
+is changing-keys("GoO"),                           1;
+is changing-keys("ILooooooVeEEpppPErrrrrLLLLlLL"), 8;
+
+sub changing-keys($str)
+{
+    $str.lc.comb.squish.elems - 1
+}
-- 
cgit