From dfb4f79c20006bca45862e5254358d37fc3bc9f3 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 5 Jul 2021 08:57:51 -0400
Subject: 1st commit on 120_raku

---
 challenge-120/stuart-little/raku/ch-1.raku |  7 +++++++
 challenge-120/stuart-little/raku/ch-2.raku | 11 +++++++++++
 2 files changed, 18 insertions(+)
 create mode 100755 challenge-120/stuart-little/raku/ch-1.raku
 create mode 100755 challenge-120/stuart-little/raku/ch-2.raku

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))
-- 
cgit