Challenge 272 Solutions (Raku)

2 files changed, 16 insertions, 0 deletions

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) 
+}