From d566230bbb40621647e3ce65a3d9015f85881f77 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 3 Jun 2024 04:16:03 +0000
Subject: Challenge 272 Solutions (Raku)

---
 challenge-272/mark-anderson/raku/ch-1.raku |  5 +++++
 challenge-272/mark-anderson/raku/ch-2.raku | 11 +++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 challenge-272/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-272/mark-anderson/raku/ch-2.raku

diff --git a/challenge-272/mark-anderson/raku/ch-1.raku b/challenge-272/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..aa2c4bab50
--- /dev/null
+++ b/challenge-272/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/usr/bin/env raku
+use Test;
+
+is '1.1.1.1'    .subst('.', '[.]', :g), '1[.]1[.]1[.]1'; 
+is '255.101.1.0'.subst('.', '[.]', :g), '255[.]101[.]1[.]0'; 
diff --git a/challenge-272/mark-anderson/raku/ch-2.raku b/challenge-272/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..7a42ee768b
--- /dev/null
+++ b/challenge-272/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is string-score("hello"), 13;
+is string-score("perl"),  30;
+is string-score("raku"),  37;
+
+sub string-score($str)
+{
+    [+] map { abs(.[0] - .[1]) }, $str.comb>>.ord.rotor(2 => -1) 
+}
-- 
cgit