From ed6b726acc50043116387d0d61168da847e9b512 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Sun, 29 Nov 2020 20:39:52 -0500
Subject: 1st commit on 065

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

diff --git a/challenge-065/stuart-little/README b/challenge-065/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-065/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-065/stuart-little/raku/ch-1.p6 b/challenge-065/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..b05bb2776d
--- /dev/null
+++ b/challenge-065/stuart-little/raku/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+sub digsum($n,$s) {
+    ((10 ** ($n-1))..^(10 ** $n)).grep({ $_.comb.sum == $s })
+}
+
+say digsum(@*ARGS[0], @*ARGS[1])
+
+# run as <script> <nr of digits> <digit sum>
+
diff --git a/challenge-065/stuart-little/raku/ch-2.p6 b/challenge-065/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..754010d2af
--- /dev/null
+++ b/challenge-065/stuart-little/raku/ch-2.p6
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl6
+use v6;
+
+sub is_pal($s) {
+    $s.chars >=1 && ($s eq $s.flip)
+}
+
+sub start_pal_indices($s) {
+    (1..$s.chars).grep({ $s.substr(0..^$_).&is_pal })
+}
+
+sub part_pal($s) {
+    $s eq '' && return ((),);
+    $s.chars==1 && return (($s,),);
+    return $s.&start_pal_indices.map({ $s.substr($_).&part_pal.map( -> @p {($s.substr(0..^$_),|@p)}) }).map(|*)
+}
+
+for @*ARGS[0].&part_pal.classify(*.elems).min(*.key) {.say}
+
+=finish
+run as <script> <string>
+
+Due to the ambiguity in the original problem I elected to implement
+
+https://leetcode.com/problems/palindrome-partitioning-ii/description/
+
+instead.
-- 
cgit