From 953fa52e1b18d32137207c85a9274987a7dd7265 Mon Sep 17 00:00:00 2001
From: Ben Davies <kaiepi@outlook.com>
Date: Thu, 21 Oct 2021 21:56:26 -0300
Subject: Add Ben Davies' Raku solutions for challenge 135

A regex-y challenge.
---
 challenge-135/ben-davies/raku/ch-1.raku | 19 +++++++++++++++++++
 challenge-135/ben-davies/raku/ch-2.raku |  9 +++++++++
 2 files changed, 28 insertions(+)
 create mode 100644 challenge-135/ben-davies/raku/ch-1.raku
 create mode 100644 challenge-135/ben-davies/raku/ch-2.raku

diff --git a/challenge-135/ben-davies/raku/ch-1.raku b/challenge-135/ben-davies/raku/ch-1.raku
new file mode 100644
index 0000000000..6288c5f48b
--- /dev/null
+++ b/challenge-135/ben-davies/raku/ch-1.raku
@@ -0,0 +1,19 @@
+use v6;
+unit sub MAIN(
+    #|[Because negative integers get parsed like named parameters.]
+    IntStr:D :$n!
+) {
+    $n ~~ rx:r/ \d+ /; # Let's keep the Unicode.
+    given my $snip = $/.chars - 3 {
+        when * % 2 {
+            put 'even number of digits'
+        }
+        when * < 0 {
+            put 'too short';
+        }
+        default {
+            let $snip div= 2;
+            put m:r/ ^ [ . ** {$snip} ] <( . ** 3 )> [ . ** {$snip} ] $ / given $/;
+        }
+    }
+}
diff --git a/challenge-135/ben-davies/raku/ch-2.raku b/challenge-135/ben-davies/raku/ch-2.raku
new file mode 100644
index 0000000000..baf1c6d679
--- /dev/null
+++ b/challenge-135/ben-davies/raku/ch-2.raku
@@ -0,0 +1,9 @@
+use v6;
+unit sub MAIN(Str:D $sedol) {
+    my constant @digits  = |(<0>..<9>), |<B C D F G H J K L M N P Q R S T V W X Y Z>;
+    my constant @weights = <1 3 1 7 3 9 1>;
+    say +do
+        $sedol ~~ rx:r/ ^ <digit=@digits> ** 6 <check=[ 0..9 ]> $ / andthen
+        @<digit>.kv.map({ @weights[$^k] * :36(~$^v) }).sum andthen
+        (10 - $_ % 10) % 10 == $<check>;
+}
-- 
cgit 


From 334e93e8a7635b1f9116174446d9e46eb0e19021 Mon Sep 17 00:00:00 2001
From: Ben Davies <kaiepi@outlook.com>
Date: Thu, 21 Oct 2021 23:23:57 -0300
Subject: Make Ben Davies' challenge 135 task 2 solution 2x as fast

---
 challenge-135/ben-davies/raku/ch-2.raku | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-135/ben-davies/raku/ch-2.raku b/challenge-135/ben-davies/raku/ch-2.raku
index baf1c6d679..329f9e242d 100644
--- a/challenge-135/ben-davies/raku/ch-2.raku
+++ b/challenge-135/ben-davies/raku/ch-2.raku
@@ -1,9 +1,9 @@
 use v6;
+my token digit { <[ 0..9 ]> | <[ B C D F G H J K L M N P Q R S T V W X Y Z ]> }
+my token check { <[ 0..9 ]> }
 unit sub MAIN(Str:D $sedol) {
-    my constant @digits  = |(<0>..<9>), |<B C D F G H J K L M N P Q R S T V W X Y Z>;
     my constant @weights = <1 3 1 7 3 9 1>;
-    say +do
-        $sedol ~~ rx:r/ ^ <digit=@digits> ** 6 <check=[ 0..9 ]> $ / andthen
+    say +do $sedol ~~ rx:r/ ^ <digit> ** 6 <check> $ / andthen
         @<digit>.kv.map({ @weights[$^k] * :36(~$^v) }).sum andthen
         (10 - $_ % 10) % 10 == $<check>;
 }
-- 
cgit