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