From 3bb04aea6a8db430fee53ef3846d0edfa2295186 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Sun, 6 Dec 2020 23:24:40 -0500
Subject: 1st commit on 045

---
 challenge-045/stuart-little/README       | 1 +
 challenge-045/stuart-little/raku/ch-1.p6 | 8 ++++++++
 challenge-045/stuart-little/raku/ch-2.p6 | 4 ++++
 3 files changed, 13 insertions(+)
 create mode 100644 challenge-045/stuart-little/README
 create mode 100755 challenge-045/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-045/stuart-little/raku/ch-2.p6

diff --git a/challenge-045/stuart-little/README b/challenge-045/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-045/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-045/stuart-little/raku/ch-1.p6 b/challenge-045/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..a294f80645
--- /dev/null
+++ b/challenge-045/stuart-little/raku/ch-1.p6
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script> <quote-enclosed string>
+
+sub encode($str) { (roundrobin (S:g/\s// with $str.lc).comb.rotor(8,:partial)).map(*.join).Str }
+
+say @*ARGS[0].&encode
diff --git a/challenge-045/stuart-little/raku/ch-2.p6 b/challenge-045/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..5d800d8782
--- /dev/null
+++ b/challenge-045/stuart-little/raku/ch-2.p6
@@ -0,0 +1,4 @@
+#!/usr/bin/env perl6
+use v6;
+
+print $*PROGRAM-NAME.IO.slurp
-- 
cgit