initial commit challenges 074-078

3 files changed, 33 insertions, 0 deletions

diff --git a/challenge-077/stuart-little/README b/challenge-077/stuart-little/README
new file mode 100644
index 0000000000..76119cbbb8
--- /dev/null
+++ b/challenge-077/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little.
diff --git a/challenge-077/stuart-little/raku/ch-1.p6 b/challenge-077/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..cab30285d6
--- /dev/null
+++ b/challenge-077/stuart-little/raku/ch-1.p6
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl6
+use v6;
+
+sub fibsum($n) {
+    (1,2,* + * ... * >= $n)
+    .combinations
+    .grep(*.sum == $n)
+}
+
+for (fibsum(@*ARGS.[0].Int)) { .say }
+
+# run as <script> <number>
diff --git a/challenge-077/stuart-little/raku/ch-2.p6 b/challenge-077/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..5984f94769
--- /dev/null
+++ b/challenge-077/stuart-little/raku/ch-2.p6
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl6
+use v6;
+
+sub lnly(@a) {
+    ((^@a.elems) X (^@a[0].elems))
+    .grep({ @a[$_[0]][$_[1]] && (@a[$_[0]][$_[1]] eq 'x') })
+    .map({ (($_.[0] X+ (0,-1,1)).grep(*>=0) X ($_.[1] X+ (0,-1,1)).grep(*>=0)).[1..*]  })
+    .map({ $_.grep({ @a[$_[0]][$_[1]] }).map({ @a[$_[0]][$_[1]] }) })
+    .map(*.join).grep(* !~~ /x/)
+    .elems
+}
+
+say lnly(@*ARGS.map(*.split('', :skip-empty)));
+
+# run as <script> <space-separated strings representing the rows of the matrix>
+# <script> x0x 00x 00x inputs the matrix
+# x0x
+# 00x
+# 00x
+#