Merge pull request #3826 from LubosKolouch/master

Challenge 105

1 files changed, 43 insertions, 0 deletions

diff --git a/challenge-106/lubos-kolouch/perl/ch-1.pl b/challenge-106/lubos-kolouch/perl/ch-1.pl
new file mode 100644
index 0000000000..da5abb6158
--- /dev/null
+++ b/challenge-106/lubos-kolouch/perl/ch-1.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-1.pl
+#
+#        USAGE: ./ch-1.pl  
+#
+#  DESCRIPTION: Perl Weekly Challenge 106
+#               Task 1 - Maximum Gap
+#
+#       AUTHOR: Lubos Kolouch
+# ORGANIZATION: 
+#      VERSION: 1.0
+#      CREATED: 04/03/2021 12:59:25 PM
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+
+sub get_max_diff {
+    my $what = shift;
+
+    return 0 unless scalar @$what > 1;
+
+    my $max_diff = 0;
+    my $prev = 0;
+
+    for (sort @$what) {
+        $max_diff = $_ - $prev if $_ - $prev > $max_diff;
+        $prev = $_;
+    }
+
+    return $max_diff;
+}
+
+use Test::More;
+
+is(get_max_diff([2, 9, 3, 5]), 4);
+is(get_max_diff([1, 3, 8, 2, 0]), 5);
+is(get_max_diff([5]), 0);
+
+done_testing;