Challenge 63 Solutions

dcw803 · Jun 6, 2020 · d4ab722 · d4ab722
1 parent 780cd70
commit d4ab722
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/challenge-063/mark-anderson/raku/ch-1.raku b/challenge-063/mark-anderson/raku/ch-1.raku
@@ -7,6 +7,6 @@ say last_word(join(' ', 1..1e6),              rx/^(3.*?)**3/);
 
 sub last_word(Str $string, Regex $regexp) {
 
-    return $string.split(/\s+/).grep($regexp).Array.pop || Nil;
+    return $string.words.grep($regexp).Array.pop || Nil;
 
 }
diff --git a/challenge-063/mark-anderson/raku/ch-2.raku b/challenge-063/mark-anderson/raku/ch-2.raku
@@ -4,7 +4,6 @@ sub MAIN(Str $str = "xyxx") {
     my @arr = $str.comb;
 
     for 1 .. Inf -> $i {
-        next if $i %% $str.chars;
         @arr .= rotate($i % $str.chars);    
         say $i and last if @arr.join eq $str;
     }