From 46203ea4524371ebfcb5e8a8ba25ac07309ae2b1 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sat, 15 Aug 2020 03:43:58 +0100
Subject: - Fixed regex.

---
 challenge-072/mohammad-anwar/raku/ch-1.raku  | 2 +-
 challenge-072/mohammad-anwar/raku/ch-1a.raku | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-072/mohammad-anwar/raku/ch-1.raku b/challenge-072/mohammad-anwar/raku/ch-1.raku
index abdff9e6bf..f4aa526ba2 100755
--- a/challenge-072/mohammad-anwar/raku/ch-1.raku
+++ b/challenge-072/mohammad-anwar/raku/ch-1.raku
@@ -22,7 +22,7 @@ sub find-trailing-zeroes(Int $N is copy where $N <= 10) {
     $N *= $_ for 1..$N-1;
 
     # match trailing zeroes
-    my $trailing-zeroes = $N ~~ m/ <[1..9]>?(<[0]>+) /;
+    my $trailing-zeroes = $N ~~ m/ <[1..9]>?(<[0]>+)$ /;
 
     return
     ($trailing-zeroes)
diff --git a/challenge-072/mohammad-anwar/raku/ch-1a.raku b/challenge-072/mohammad-anwar/raku/ch-1a.raku
index dbcf9532a1..24e46efb14 100755
--- a/challenge-072/mohammad-anwar/raku/ch-1a.raku
+++ b/challenge-072/mohammad-anwar/raku/ch-1a.raku
@@ -37,7 +37,7 @@ sub find-trailing-zeroes(Int $N is copy where $N <= 10) {
     $N *= $_ for 1..$N-1;
 
     # match trailing zeroes
-    my $trailing-zeroes = $N ~~ m/ <[1..9]>?(<[0]>+) /;
+    my $trailing-zeroes = $N ~~ m/ <[1..9]>?(<[0]>+)$ /;
 
     return
     ($trailing-zeroes)
-- 
cgit