initial commit on 040-042, 060-061, 063

3 files changed, 25 insertions, 0 deletions

diff --git a/challenge-041/stuart-little/README b/challenge-041/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-041/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-041/stuart-little/raku/ch-1.p6 b/challenge-041/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..d7f2859dc3
--- /dev/null
+++ b/challenge-041/stuart-little/raku/ch-1.p6
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl6
+use v6;
+
+my @prms=(2..*).grep(*.is-prime);
+
+sub fct(Int $n where * > 0) {
+    given $n {
+	when 1 { () }
+	default {
+	    my $fct=@prms.first($n %% *);
+	    ($fct, |fct(($n/$fct).Int))
+	}
+    }
+}
+
+say (2..((@*ARGS) ?? (@*ARGS[0].Int) !! (50))).grep({ fct($_).is-prime })
+
+# run as <script> <top number to check> or just <script> to default to range 2..50
diff --git a/challenge-041/stuart-little/raku/ch-2.p6 b/challenge-041/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..ef6c7b8259
--- /dev/null
+++ b/challenge-041/stuart-little/raku/ch-2.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+use v6;
+
+say (1, 1, { $^a + $^b +1} ... *).[^20]
+
+# run as <script>