From 0933f85f52933bd3b34cd146bd8ab6a1214e8dd2 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Tue, 8 Dec 2020 11:49:34 -0500
Subject: 1st commit on 046

---
 challenge-046/stuart-little/README       |  1 +
 challenge-046/stuart-little/raku/ch-1.p6 | 27 +++++++++++++++++++++++++++
 challenge-046/stuart-little/raku/ch-2.p6 |  6 ++++++
 3 files changed, 34 insertions(+)
 create mode 100644 challenge-046/stuart-little/README
 create mode 100755 challenge-046/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-046/stuart-little/raku/ch-2.p6

diff --git a/challenge-046/stuart-little/README b/challenge-046/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-046/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-046/stuart-little/raku/ch-1.p6 b/challenge-046/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..4a94cafd3c
--- /dev/null
+++ b/challenge-046/stuart-little/raku/ch-1.p6
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script>
+
+sub rep_across_msgs(@a) {
+    (roundrobin @a.List).map({ ($_.Bag (-) $_.Set).keys }) 
+}
+
+my @a1=(
+    <H x l 4 !>,
+    <c e - l o>,
+    <z e 6 l g>,
+    <H W l v R>,
+    <q 9 m # o>,
+);
+
+my @a2=(
+    Q:w{P + 2 l ! a t o},
+    Q:w{1 e 8 0 R $ 4 u},
+    Q:w{5 - r ] + a > /},
+    Q:w{P x w l b 3 k \},
+    Q:w{2 e 3 5 R 8 y u},
+    Q:w{< ! r ^ ( ) k 0},
+);
+
+for (@a1, @a2) {.&rep_across_msgs.say} 
diff --git a/challenge-046/stuart-little/raku/ch-2.p6 b/challenge-046/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..415f17ec1a
--- /dev/null
+++ b/challenge-046/stuart-little/raku/ch-2.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script>
+
+say (1..500).grep({ $_.sqrt.floor ** 2 == $_ })
-- 
cgit