initial commit on 031,032,048

3 files changed, 23 insertions, 0 deletions

diff --git a/challenge-031/stuart-little/README b/challenge-031/stuart-little/README
new file mode 100644
index 0000000000..78439907de
--- /dev/null
+++ b/challenge-031/stuart-little/README
@@ -0,0 +1 @@
+Solutions by Stuart Little
diff --git a/challenge-031/stuart-little/raku/ch-1.p6 b/challenge-031/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..55288764c8
--- /dev/null
+++ b/challenge-031/stuart-little/raku/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+try {
+    say @*ARGS[0].Real/@*ARGS[1].Real;
+}
+
+($!) && say "Tried to divide by 0, eh?"
+
+# run as <script> <numerator> <denominator>
+
diff --git a/challenge-031/stuart-little/raku/ch-2.p6 b/challenge-031/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..350f958e82
--- /dev/null
+++ b/challenge-031/stuart-little/raku/ch-2.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+use v6;
+
+my $name = "\$@*ARGS[0]";
+spurt 'MySymbols.pm6', "use v6; unit module MySymbols; my $name = \'@*ARGS[1]\'; say \"\\$name = $name\"";
+use lib '.';
+require MySymbols;
+unlink 'MySymbols.pm6';
+
+# run as <script> <variable name> <variable value>
+# ref: https://stackoverflow.com/questions/47332941/how-to-define-variable-names-dynamically-in-perl-6