From bb7eb8afb6cabb83a48dd2a9407f7d1f3768ee86 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Wed, 9 Dec 2020 09:13:55 -0500
Subject: 1st commit on 044

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

diff --git a/challenge-044/stuart-little/README b/challenge-044/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-044/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-044/stuart-little/raku/ch-1.p6 b/challenge-044/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..1c2f376be3
--- /dev/null
+++ b/challenge-044/stuart-little/raku/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script>
+
+say "123-45-67+89=", 123-45-67+89
diff --git a/challenge-044/stuart-little/raku/ch-2.p6 b/challenge-044/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..1cbe3f3c36
--- /dev/null
+++ b/challenge-044/stuart-little/raku/ch-2.p6
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script> <target sum; defaults to 200>
+
+sub make_sum(Int $s where * > 0) {
+    $s ~ ' ' ~
+    $s.base(2).flip.comb[0..*-2].map({ ($_ eq '0') ?? '/2' !! '-1 /2' }).join(' ')
+    ~ ' =1'
+}
+
+say make_sum((@*ARGS) ?? (@*ARGS[0].Int) !! (200))
-- 
cgit