From 9e66df75dea2ac13f895a1006859af5d54e3efbb Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 7 Dec 2020 23:33:56 -0500
Subject: 1st commit on 006

---
 challenge-006/stuart-little/README       |  1 +
 challenge-006/stuart-little/raku/ch-1.p6 | 10 ++++++++++
 challenge-006/stuart-little/raku/ch-2.p6 | 15 +++++++++++++++
 3 files changed, 26 insertions(+)
 create mode 100644 challenge-006/stuart-little/README
 create mode 100755 challenge-006/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-006/stuart-little/raku/ch-2.p6

diff --git a/challenge-006/stuart-little/README b/challenge-006/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-006/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-006/stuart-little/raku/ch-1.p6 b/challenge-006/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..c475bdde13
--- /dev/null
+++ b/challenge-006/stuart-little/raku/ch-1.p6
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script> <space-separated list entries>
+
+sub compactify(@a) {
+    S:g/\D*\-\D*/-/ with @a.sort.unique.map({ (($_-1,$_,$_+1).all == @a.any) ?? '-' !! $_ }).join(',')
+}
+
+say @*ARGS.map(*.Int).&compactify
diff --git a/challenge-006/stuart-little/raku/ch-2.p6 b/challenge-006/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..fb07fe23cd
--- /dev/null
+++ b/challenge-006/stuart-little/raku/ch-2.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run as <script>
+
+use Inline::Perl5;
+my $p5 = Inline::Perl5.new;
+
+$p5.run(q{
+	       use v5.12;
+	       use Math::BigFloat; 
+	       Math::BigFloat->precision(-60);
+
+	       say substr(Math::BigFloat->new('1')->bexp()->bpow(Math::BigFloat->bpi()->bmul(Math::BigFloat->new('163')->bsqrt())->bround(60)),0,52);
+	   });
-- 
cgit