Merge pull request #13001 from andemark/challenge-347

Challenge 347 Solutions (Raku)

Author: manwar

challenge-347/mark-anderson/raku/ch-1.raku

@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+use Test;
+
+is format-date('1st Jan 2025'),  '2025-01-01';
+is format-date('22nd Feb 2025'), '2025-02-22';
+is format-date('15th Apr 2025'), '2025-04-15';
+is format-date('23rd Oct 2025'), '2025-10-23';
+is format-date('31st Dec 2025'), '2025-12-31';
+
+sub format-date($str)
+{
+    my ($day, $month, $year) = $str.split(/<space>/);
+
+    my %months is Map = { 
+                            :Jan(1), :Feb(2),  :Mar(3),  :Apr(4),  
+                            :May(5), :Jun(6),  :Jul(7),  :Aug(8), 
+                            :Sep(9), :Oct(10), :Nov(11), :Dec(12)
+                        }
+
+    ($year, %months{$month}, $day.substr(0, *-2)).fmt('%02d', '-')
+}

challenge-347/mark-anderson/raku/ch-2.raku

@@ -0,0 +1,30 @@
+#!/usr/bin/env raku
+use Test;
+
+is format-phone-number('1-23-45-6'),   '123-456';
+is format-phone-number('1234'),        '12-34';
+is format-phone-number('12 345-6789'), '123-456-789';
+is format-phone-number('123 4567'),    '123-45-67';
+is format-phone-number('123 456-78'),  '123-456-78';
+
+sub format-phone-number($phone is copy)
+{
+    $phone .= subst(/<space> | '-'/, :g);
+
+    .join('-') given do given $phone.chars mod 3
+    {
+        when 0 { 
+                   m:g/.../ given $phone 
+               }
+
+        when 1 { 
+                   flat .substr(0, *-4) ~~ m:g/.../, 
+                        .substr(   *-4) ~~ m:g/../   given $phone
+               }
+
+        when 2 {
+                   flat .substr(0, *-2) ~~ m:g/.../,
+                        .substr(   *-2)              given $phone
+               }
+    }     
+}