Merge remote-tracking branch 'upstream/master'

107 files changed, 3754 insertions, 67 deletions

diff --git a/challenge-073/arne-sommer/blog.txt b/challenge-073/arne-sommer/blog.txt
new file mode 100644
index 0000000000..20cc755a48
--- /dev/null
+++ b/challenge-073/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/sliding-neighbour.html
diff --git a/challenge-073/arne-sommer/perl/ch-1.pl b/challenge-073/arne-sommer/perl/ch-1.pl
new file mode 100755
index 0000000000..9e43f35bb2
--- /dev/null
+++ b/challenge-073/arne-sommer/perl/ch-1.pl
@@ -0,0 +1,25 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+use Getopt::Long;
+use List::Util 'min';
+use Perl6::Junction 'all';
+
+my $verbose = 0;
+
+GetOptions("verbose"  => \$verbose);
+
+die 'Specify $S and @A' unless @ARGV;
+
+my ($S, @A) = @ARGV;
+
+die '$S must be an integer >= 1' unless int($S) == $S && $S >= 1;
+die '@A must contain integers only' unless all(@A) == qr/^\d+$/;
+
+map { say ": (" . join(", ", @A[$_ .. $_ + $S -1]) . ") min -> " . min @A[$_ .. $_ + $S -1] }
+(0 .. @A - $S) if $verbose;
+
+say "(",
+    join (", ", map { min @A[$_ .. $_ + $S -1] } (0 .. @A - $S)),
+    ")";
diff --git a/challenge-073/arne-sommer/perl/ch-2.pl b/challenge-073/arne-sommer/perl/ch-2.pl
new file mode 100755
index 0000000000..8043a49e6b
--- /dev/null
+++ b/challenge-073/arne-sommer/perl/ch-2.pl
@@ -0,0 +1,29 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+use Getopt::Long;
+use List::Util 'min';
+use Perl6::Junction 'all';
+
+my $verbose = 0;
+
+GetOptions("verbose"  => \$verbose);
+
+die 'Specify @A' unless @ARGV;
+
+my (@A) = @ARGV;
+
+die '@A must contain integers only' unless all(@A) == qr/^\d+$/;
+
+if ($verbose)
+{
+  say ": index 0 (" . $A[0] . ") -> () -> 0";
+  map { say ": index $_ ($A[$_]) -> (" . join(", ", @A[0 .. $_ -1]) . ") -> " .
+       (min @A[0 .. $_ -1] < $A[$_] ? min @A[0 .. $_ -1] : 0 ) } (1 .. @A -1);
+}
+
+say "(0, ",
+  join (", ",
+      map { my $c = min @A[0 .. $_ -1]; $c < $A[$_] ? $c : 0 } (1 .. @A -1)),
+     ")";
diff --git a/challenge-073/arne-sommer/perl/min-sliding-window-perl b/challenge-073/arne-sommer/perl/min-sliding-window-perl
new file mode 100755
index 0000000000..9e43f35bb2
--- /dev/null
+++ b/challenge-073/arne-sommer/perl/min-sliding-window-perl
@@ -0,0 +1,25 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+use Getopt::Long;
+use List::Util 'min';
+use Perl6::Junction 'all';
+
+my $verbose = 0;
+
+GetOptions("verbose"  => \$verbose);
+
+die 'Specify $S and @A' unless @ARGV;
+
+my ($S, @A) = @ARGV;
+
+die '$S must be an integer >= 1' unless int($S) == $S && $S >= 1;
+die '@A must contain integers only' unless all(@A) == qr/^\d+$/;
+
+map { say ": (" . join(", ", @A[$_ .. $_ + $S -1]) . ") min -> " . min @A[$_ .. $_ + $S -1] }
+(0 .. @A - $S) if $verbose;
+
+say "(",
+    join (", ", map { min @A[$_ .. $_ + $S -1] } (0 .. @A - $S)),
+    ")";
diff --git a/challenge-073/arne-sommer/perl/smallest-neighbour-perl b/challenge-073/arne-sommer/perl/smallest-neighbour-perl
new file mode 100755
index 0000000000..8043a49e6b
--- /dev/null
+++ b/challenge-073/arne-sommer/perl/smallest-neighbour-perl
@@ -0,0 +1,29 @@
+#! /usr/bin/env perl
+
+use strict;
+use feature 'say';
+use Getopt::Long;
+use List::Util 'min';
+use Perl6::Junction 'all';
+
+my $verbose = 0;
+
+GetOptions("verbose"  => \$verbose);
+
+die 'Specify @A' unless @ARGV;
+
+my (@A) = @ARGV;
+
+die '@A must contain integers only' unless all(@A) == qr/^\d+$/;
+
+if ($verbose)
+{
+  say ": index 0 (" . $A[0] . ") -> () -> 0";
+  map { say ": index $_ ($A[$_]) -> (" . join(", ", @A[0 .. $_ -1]) . ") -> " .
+       (min @A[0 .. $_ -1] < $A[$_] ? min @A[0 .. $_ -1] : 0 ) } (1 .. @A -1);
+}
+
+say "(0, ",
+  join (", ",
+      map { my $c = min @A[0 .. $_ -1]; $c < $A[$_] ? $c : 0 } (1 .. @A -1)),
+     ")";
diff --git a/challenge-073/arne-sommer/raku/ch-1.raku b/challenge-073/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..711f6fa1b2
--- /dev/null
+++ b/challenge-073/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,9 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $S where * >= 1, *@A, :v(:$verbose));
+
+die "Integers only" unless all(@A) ~~ Int;
+
+(0 .. @A.elems - $S).map({ say ": (" ~ @A[$_ .. $_ + $S -1].join(", ") ~ ") min -> " ~ @A[$_ .. $_ + $S -1].min }) if $verbose;
+
+say "(", (0 .. @A.elems - $S).map({ @A[$_ .. $_ + $S -1].min }).join(