diff options
| -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 }; |