diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-14 23:22:50 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-14 23:22:50 +0200 |
| commit | d7ff198a67fcfab4198c726bd418b84d48f721b4 (patch) | |
| tree | 13c45773bda162127e3a8140e34fde2d413312ee | |
| parent | 56291db0d29d0b4d51f261b19386cb46bd02a55e (diff) | |
| download | perlweeklychallenge-club-d7ff198a67fcfab4198c726bd418b84d48f721b4.tar.gz perlweeklychallenge-club-d7ff198a67fcfab4198c726bd418b84d48f721b4.tar.bz2 perlweeklychallenge-club-d7ff198a67fcfab4198c726bd418b84d48f721b4.zip | |
initial
| -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 |