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

---
 challenge-120/stuart-little/perl/ch-1.pl |  7 +++++++
 challenge-120/stuart-little/perl/ch-2.pl | 15 +++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100755 challenge-120/stuart-little/perl/ch-1.pl
 create mode 100755 challenge-120/stuart-little/perl/ch-2.pl

diff --git a/challenge-120/stuart-little/perl/ch-1.pl b/challenge-120/stuart-little/perl/ch-1.pl
new file mode 100755
index 0000000000..54e4e7e5b4
--- /dev/null
+++ b/challenge-120/stuart-little/perl/ch-1.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+use warnings;
+use v5.12;
+
+# run <script> <number>
+
+say oct('0b' . (join '', map {my $rev = reverse substr(sprintf("%08b", $ARGV[0] & 255), 2*$_,2)} (0..3)))
diff --git a/challenge-120/stuart-little/perl/ch-2.pl b/challenge-120/stuart-little/perl/ch-2.pl
new file mode 100755
index 0000000000..beeeee77af
--- /dev/null
+++ b/challenge-120/stuart-little/perl/ch-2.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use warnings;
+use v5.12;
+
+# run <script> <time>
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+sub angl($h,$m) {
+    my $rawDiff = abs(($h % 12)*30 + $m/2 - $m * 6);
+    return ($rawDiff <= 180) ? ($rawDiff) : (360-$rawDiff);
+}
+
+say angl(split ":", $ARGV[0]);
-- 
cgit