From 2468dc495b4c86fc75545db923bfed3e1bbb5f6e Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Sun, 29 Nov 2020 16:38:41 +0100
Subject: Challenge 002 task 2

---
 challenge-002/jo-37/perl/ch-2.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 challenge-002/jo-37/perl/ch-2.pl

diff --git a/challenge-002/jo-37/perl/ch-2.pl b/challenge-002/jo-37/perl/ch-2.pl
new file mode 100644
index 0000000000..d10ceb7280
--- /dev/null
+++ b/challenge-002/jo-37/perl/ch-2.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use Test2::V0;
+use Math::Utils 'moduli';
+use List::Util 'reduce';
+
+my @b35 = (0 .. 9, 'A' .. 'Y');
+my %b35 = map {($b35[$_] => $_)} 0 .. $#b35;
+
+sub to_b35 {
+	join '', map $b35[$_], reverse moduli(shift, 35);	
+}
+
+sub from_b35 {
+	reduce {$a * 35 + $b35{$b}} 0, split //, shift;
+}
+
+is to_b35(0), '0';
+is to_b35(9), '9';
+is to_b35(10), 'A';
+is to_b35(34), 'Y';
+is to_b35(35), '10';
+is from_b35(to_b35(7**$_)), 7**$_ for 1 .. 18;
+
+done_testing;
-- 
cgit