diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-03 02:04:32 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-03 02:04:32 +0100 |
| commit | e9df81411583327d14c4337cf4c82564090165a2 (patch) | |
| tree | 9e45992608d722526b7247dfc270ff136d8265a9 | |
| parent | 5144dc2f88d70ae9640bf99019c0cd2496825f7a (diff) | |
| download | perlweeklychallenge-club-e9df81411583327d14c4337cf4c82564090165a2.tar.gz perlweeklychallenge-club-e9df81411583327d14c4337cf4c82564090165a2.tar.bz2 perlweeklychallenge-club-e9df81411583327d14c4337cf4c82564090165a2.zip | |
- Further improvement.
| -rw-r--r-- | challenge-063/mohammad-anwar/raku/ch-1.p6 | 2 | ||||
| -rw-r--r-- | challenge-063/mohammad-anwar/raku/ch-2.p6 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-063/mohammad-anwar/raku/ch-1.p6 b/challenge-063/mohammad-anwar/raku/ch-1.p6 index f2362933e5..a62fa15696 100644 --- a/challenge-063/mohammad-anwar/raku/ch-1.p6 +++ b/challenge-063/mohammad-anwar/raku/ch-1.p6 @@ -10,5 +10,5 @@ is last-word( (1..1e6).join(' '), rx /^^(3.*?)**3/), '399933'; done-testing; sub last-word(Str $string, Regex $regex) { - return ($string.split(" ").reverse.grep: { $_ ~~ $regex }).[0]; + return $string.split(" ").reverse.grep($regex).head; } diff --git a/challenge-063/mohammad-anwar/raku/ch-2.p6 b/challenge-063/mohammad-anwar/raku/ch-2.p6 index d5ef23b384..d14f542883 100644 --- a/challenge-063/mohammad-anwar/raku/ch-2.p6 +++ b/challenge-063/mohammad-anwar/raku/ch-2.p6 @@ -6,7 +6,7 @@ sub MAIN(Str :$string = 'xyxx', Bool :$verbose?) { rotate($string, $verbose).say; } -sub rotate(Str $string where { $_ ~~ rx:i/^ <[xy]>+ $/ }, Bool $verbose?) { +sub rotate(Str $string where rx:i/^ <[xy]>+ $/, Bool $verbose?) { my $size = $string.chars; my $temp = $string; |