From 60f926cd6dc29af9fa8db7bfd3e66cc34a5de560 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Thu, 1 Apr 2021 19:39:34 +0100
Subject: - Added Maximum Gap solution in Perl.

---
 challenge-106/mohammad-anwar/perl/ch-1.pl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 challenge-106/mohammad-anwar/perl/ch-1.pl

(limited to 'challenge-106')

diff --git a/challenge-106/mohammad-anwar/perl/ch-1.pl b/challenge-106/mohammad-anwar/perl/ch-1.pl
new file mode 100644
index 0000000000..f004af3591
--- /dev/null
+++ b/challenge-106/mohammad-anwar/perl/ch-1.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+is(max_gap(2, 9, 3, 5), 4);
+is(max_gap(1, 3, 8, 2, 0), 5);
+is(max_gap(5), 0);
+
+done_testing;
+
+sub max_gap {
+    my @n = @_;
+
+    return 0 if @n == 1;
+
+    my $x;
+    my $d = 0;
+    foreach (reverse sort @n) {
+        $x = $_ and next unless defined $x;
+        $d = $x - $_ if ($d < $x - $_);
+        $x = $_;
+    }
+
+    return $d;
+}
-- 
cgit