diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-08-10 11:55:31 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-08-10 11:55:31 +0100 |
| commit | dc506c6e97c64199fc45e79362f9be43316b9364 (patch) | |
| tree | 9056a1242f1f52e22172678fec6635409eb650dc | |
| parent | 22aa869eec4e56633f2a2260c8de693503ca01cd (diff) | |
| parent | c18675865d68125951fb58b586b6cf0527d3f0ef (diff) | |
| download | perlweeklychallenge-club-dc506c6e97c64199fc45e79362f9be43316b9364.tar.gz perlweeklychallenge-club-dc506c6e97c64199fc45e79362f9be43316b9364.tar.bz2 perlweeklychallenge-club-dc506c6e97c64199fc45e79362f9be43316b9364.zip | |
Merge pull request #2061 from holli-holzer/master
initial
| -rw-r--r-- | challenge-073/markus-holzer/raku/ch-1.raku | 3 | ||||
| -rw-r--r-- | challenge-073/markus-holzer/raku/ch-2.raku | 4 |
2 files changed, 7 insertions, 0 deletions
diff --git a/challenge-073/markus-holzer/raku/ch-1.raku b/challenge-073/markus-holzer/raku/ch-1.raku new file mode 100644 index 0000000000..9b36009912 --- /dev/null +++ b/challenge-073/markus-holzer/raku/ch-1.raku @@ -0,0 +1,3 @@ +my @A = 1, 5, 0, 2, 9, 3, 7, 6, 4, 8; +my $S = 3; +say join ' ', @A.rotor( $S => -($S - 1) ).map: *.min; diff --git a/challenge-073/markus-holzer/raku/ch-2.raku b/challenge-073/markus-holzer/raku/ch-2.raku new file mode 100644 index 0000000000..cf7c369705 --- /dev/null +++ b/challenge-073/markus-holzer/raku/ch-2.raku @@ -0,0 +1,4 @@ +my @A = (7, 8, 3, 12, 10); + +say join ' ', 0, gather for 1 .. +@A - 1 -> $i { + take .min with @A[ 0..$i-1 ].grep( * < @A[$i] ) or 0 }; |