Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-063/markus-holzer/ch-1.raku b/challenge-063/markus-holzer/ch-1.raku
new file mode 100644
index 0000000000..7336e63f9c
--- /dev/null
+++ b/challenge-063/markus-holzer/ch-1.raku
@@ -0,0 +1,8 @@
+sub last-word( Str $sentence, Regex $matcher ) 
+{
+    $sentence.words.grep( $matcher ).tail;
+}
+
+say last-word( '  hello world', rx/ <[ea]> l /                ); # 'hello'
+say last-word( "Don't match too much, Chet!",  rx:i/ ch . t / ); # 'Chet!'
+say last-word( "spaces in regexp won't match", rx/ \s re /    ); #  undef
diff --git a/challenge-063/markus-holzer/ch-2.raku b/challenge-063/markus-holzer/ch-2.raku
new file mode 100644
index 0000000000..ba1eb40be2
--- /dev/null
+++ b/challenge-063/markus-holzer/ch-2.raku
@@ -0,0 +1,19 @@
+multi sub rotmodN( Str $orig ) 
+{ 
+    rotmodN $orig.comb.List
+}
+
+multi sub rotmodN ( List $orig, $n = $orig.elems ) 
+{ 
+    my $work = $orig;
+
+    for ( 1 .. Inf ).map( * % $n ).kv -> $i, $by
+    {
+        $work = $work.rotate: $by;
+
+        return $i + 1 
+            if $work cmp $orig == Same
+    }
+}
+
+say rotmodN 'xyxx'
\ No newline at end of file