1 files changed, 25 insertions, 0 deletions
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)),
+    ")";