initial commit on challenges 79-82

3 files changed, 38 insertions, 0 deletions

diff --git a/challenge-079/stuart-little/README b/challenge-079/stuart-little/README
new file mode 100644
index 0000000000..76119cbbb8
--- /dev/null
+++ b/challenge-079/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little.
diff --git a/challenge-079/stuart-little/raku/ch-1.p6 b/challenge-079/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..72bf82467e
--- /dev/null
+++ b/challenge-079/stuart-little/raku/ch-1.p6
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl6
+use v6;
+
+sub bits($n) {
+    (1..$n).map(*.base(2)).join.indices(1).elems % 1000000007
+}
+
+say bits(@*ARGS[0]);
+
+# run as <script> number
diff --git a/challenge-079/stuart-little/raku/ch-2.p6 b/challenge-079/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..954c876901
--- /dev/null
+++ b/challenge-079/stuart-little/raku/ch-2.p6
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl6
+use v6;
+
+sub thresh(@a,$idx) {
+    min(@a.[0..^$idx].max,@a.[$idx^..*].max)
+}
+
+sub hist(@a) {
+    (1..@a.max)
+    .map( -> $val { @a.keys.map({
+($val <= @a.[$_]) ?? ('#') !! ($val <= thresh(@a,$_)) ?? ('0') !! (' ') })
+		  })
+    .reverse
+    .join("\n")
+}
+
+sub rain(@a) {
+    @a.keys
+    .map({ (@a.[$_]^..thresh(@a,$_)).elems })
+}
+
+say hist(@*ARGS.map(*.Int)),
+"\n" ~ ('- ' x @*ARGS) ~ "\n",
+rain(@*ARGS.map(*.Int)).sum;
+
+# run as <script> <space-separated array entries>
+# histogram displays "rain" as '0'