diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 03:43:58 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 03:43:58 +0100 |
| commit | 46203ea4524371ebfcb5e8a8ba25ac07309ae2b1 (patch) | |
| tree | 365329a361572b4ca7e6176fbd125fe5141feda1 | |
| parent | 38c4bbf8ab1be902bb97d8004d2057929d92c61a (diff) | |
| download | perlweeklychallenge-club-46203ea4524371ebfcb5e8a8ba25ac07309ae2b1.tar.gz perlweeklychallenge-club-46203ea4524371ebfcb5e8a8ba25ac07309ae2b1.tar.bz2 perlweeklychallenge-club-46203ea4524371ebfcb5e8a8ba25ac07309ae2b1.zip | |
- Fixed regex.
| -rwxr-xr-x | challenge-072/mohammad-anwar/raku/ch-1.raku | 2 | ||||
| -rwxr-xr-x | 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) |