Perl Weekly Challenge 002

challenge-001/alexdaniel/README.md

@@ -0,0 +1 @@
+Solutions by [AlexDaniel](https://github.com/AlexDaniel/)

challenge-001/alex-daniel/perl6/ch-1.p6 → challenge-001/alexdaniel/perl6/ch-1.p6

@@ -1,2 +1 @@
 $_ = ‘Perl Weekly Challenge’; say +tr/e/E/; .say
-

challenge-002/alexdaniel/README.md

@@ -0,0 +1 @@
+Solutions by [AlexDaniel](https://github.com/AlexDaniel/)

challenge-002/alexdaniel/perl6/ch-1.p6

@@ -0,0 +1,9 @@
+# Supports any unicode digits, so ႐႐၄၂ will be trimmed to ၄၂.
+# Zero and negative numbers are not trimmed because the task
+# specifically asks for positive numbers. However, it is not specified
+# what a “number” is, and same goes for formatting requirements (e.g.
+# “.5“ vs “0.5”), therefore I decided to keep it simple and just do
+# the integers. So it's just a neat example on how to do unicode-aware
+# number matching.
+
+put S:r/^[ <:Nd> & <:Numeric_Value(0)> ]* <before <:Nd>+$>// for @*ARGS

challenge-002/alexdaniel/perl6/ch-2.p6

@@ -0,0 +1,9 @@
+#| From base 10 to base 35
+sub postfix:<₃₅>(Real() $a) { $a.base:       35 }
+#| From base 35 to base 10
+sub postfix:<₁₀>( Str() $a) { $a.parse-base: 35 }
+
+say ‘ALEXDANIEL’₁₀;
+say 836407881643061₃₅;
+
+# You can do non-ints too, but they won't roundtrip as you might expect