From c18675865d68125951fb58b586b6cf0527d3f0ef Mon Sep 17 00:00:00 2001 From: "Markus \"Holli\" Holzer" Date: Mon, 10 Aug 2020 10:39:01 +0200 Subject: initial --- challenge-073/markus-holzer/raku/ch-1.raku | 3 +++ challenge-073/markus-holzer/raku/ch-2.raku | 4 ++++ 2 files changed, 7 insertions(+) create mode 100644 challenge-073/markus-holzer/raku/ch-1.raku create mode 100644 challenge-073/markus-holzer/raku/ch-2.raku 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 }; -- cgit