diff options
| -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; |