Merge pull request #4429 from stuart-little/stuart-little_120_raku

1st commit on 120_raku

2 files changed, 18 insertions, 0 deletions

diff --git a/challenge-120/stuart-little/raku/ch-1.raku b/challenge-120/stuart-little/raku/ch-1.raku
new file mode 100755
index 0000000000..5b6fe3a176
--- /dev/null
+++ b/challenge-120/stuart-little/raku/ch-1.raku
@@ -0,0 +1,7 @@
+#!/usr/bin/env raku
+use v6;
+
+# run <script> <number>
+
+say parse-base(sprintf("%08b", @*ARGS[0] +& 255).comb(2).map({.flip}).join(''),2)
+
diff --git a/challenge-120/stuart-little/raku/ch-2.raku b/challenge-120/stuart-little/raku/ch-2.raku
new file mode 100755
index 0000000000..001696d68a
--- /dev/null
+++ b/challenge-120/stuart-little/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use v6;
+
+# run <script> <time>
+
+sub angl($h,$m) {
+    my $rawDiff = abs(($h % 12)*30 + $m/2 - $m * 6);
+    return ($rawDiff <= 180) ?? ($rawDiff) !! (360-$rawDiff);
+}
+
+say angl(|@*ARGS[0].split(":").map(*.Int))