From 1c7e21c38d6198dcff370c065ea0335d093aad2a Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 25 Jan 2021 07:32:22 -0500
Subject: 1st commit on 097_raku

---
 challenge-097/stuart-little/raku/ch-1.p6 |  7 +++++++
 challenge-097/stuart-little/raku/ch-2.p6 | 13 +++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100755 challenge-097/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-097/stuart-little/raku/ch-2.p6

diff --git a/challenge-097/stuart-little/raku/ch-1.p6 b/challenge-097/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..d0be59447b
--- /dev/null
+++ b/challenge-097/stuart-little/raku/ch-1.p6
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <quoted string> <number>
+
+say @*ARGS[0].trans(['A'..'Z'] => ['A'..'Z'].rotate(26-@*ARGS[1].Int))
+
diff --git a/challenge-097/stuart-little/raku/ch-2.p6 b/challenge-097/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..06038a1f63
--- /dev/null
+++ b/challenge-097/stuart-little/raku/ch-2.p6
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <binary string> <integer>
+
+sub res(@strs) { zip(@strs).map(-> @s {@s.classify({$_}).max(*.value.elems).value.head}) }
+
+sub toflip(@target,@strs) { @strs.map(-> @s {(@s Z!== @target).grep({$_}).elems}).sum }
+
+my @strs = @*ARGS[0].comb.rotor(@*ARGS[1].Int);
+my @target = res(@strs.List);
+
+say qq|Flip a total number of {toflip(@target,@strs)} positions to get {@target.join} from\n{@strs.map(*.join).join("\n")}|
-- 
cgit