From 4e091a24c1c1a545e3e5ce01e20067dca154a42c Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Sun, 4 Apr 2021 21:27:55 +0200
Subject: Task 1 Challenge 106 LK

---
 challenge-106/lubos-kolouch/perl/ch-1.pl | 43 ++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 challenge-106/lubos-kolouch/perl/ch-1.pl

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;
-- 
cgit