Merge pull request #4450 from choroba/ech120

Add solutions to 120: Swap Odd/Even Bits & Clock Angle by E. Choroba

2 files changed, 46 insertions, 0 deletions

diff --git a/challenge-120/e-choroba/perl/ch-1.pl b/challenge-120/e-choroba/perl/ch-1.pl
new file mode 100755
index 0000000000..2176fb2f97
--- /dev/null
+++ b/challenge-120/e-choroba/perl/ch-1.pl
@@ -0,0 +1,18 @@
+#! /usr/bin/perl
+use warnings;
+use strict;
+
+sub swap_odd_even_bits {
+    my ($n) = @_;
+    no warnings 'portable';
+    oct '0b' . sprintf('%064b', $n) =~ s/(..)/reverse $1/ger
+}
+
+use Test2::V0;
+plan(3);
+
+is swap_odd_even_bits(101), 154, 'Example 1';
+is swap_odd_even_bits(18),   33, 'Example 2';
+
+# 255? Bah!
+is swap_odd_even_bits(~0), ~0, 'Large value';
diff --git a/challenge-120/e-choroba/perl/ch-2.pl b/challenge-120/e-choroba/perl/ch-2.pl
new file mode 100755
index 0000000000..4458247675
--- /dev/null
+++ b/challenge-120/e-choroba/perl/ch-2.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+sub clock_angle {
+    my ($time) = @_;
+    my ($h, $m) = split /:/, $time;
+
+    my $angle = abs(($m / 60 + $h) * 30 - $m * 6);
+    $angle = 360 - $angle if $angle > 180;
+    $angle *= -1 if $angle < 0;
+    return $angle
+}
+
+use Test2::V0;
+plan 10;
+
+is clock_angle('03:10'),   35, 'Example 1';
+is clock_angle('04:00'),  120, 'Example 2';
+
+is clock_angle('12:00'),    0, 'Midnight/Noon';
+is clock_angle( '1:00'),   30, "One o'clock";
+is clock_angle( '2:00'),   60, "Two o'clock";
+is clock_angle('18:00'),  180, 'Six PM';
+is clock_angle( '6:30'),   15, 'Half past 6';
+is clock_angle( '6:33'),  1.5, 'Half past 6';
+is clock_angle( '2:11'),  0.5, 'Smallest angle';
+is clock_angle('11:55'), 27.5, 'Five to twelve';