diff options
| -rw-r--r-- | challenge-078/markus-holzer/raku/ch-1.raku | 10 | ||||
| -rw-r--r-- | challenge-078/markus-holzer/raku/ch-2.raku | 3 |
2 files changed, 13 insertions, 0 deletions
diff --git a/challenge-078/markus-holzer/raku/ch-1.raku b/challenge-078/markus-holzer/raku/ch-1.raku new file mode 100644 index 0000000000..63b575edc1 --- /dev/null +++ b/challenge-078/markus-holzer/raku/ch-1.raku @@ -0,0 +1,10 @@ +unit sub MAIN( *@A where @A.all ~~ Int ); + +say @A.&leader-elements.join: ", "; + +multi leader-elements( @A ) { + (^@A) + .grep( -> $i { @A[ $i ] > @A[ $i^..* ].all } ) + .map( -> $i { @A[ $i ] } ) } + +multi leader-elements( @A where +@A == 0 ) { 0 }
\ No newline at end of file diff --git a/challenge-078/markus-holzer/raku/ch-2.raku b/challenge-078/markus-holzer/raku/ch-2.raku new file mode 100644 index 0000000000..7cd2766beb --- /dev/null +++ b/challenge-078/markus-holzer/raku/ch-2.raku @@ -0,0 +1,3 @@ +my @A = 10, 20, 30, 40, 50; +my @B = 3, 4; +dd @A.rotate($_) for @B;
\ No newline at end of file |