From 04d3bd7b78bdf14c99cfcb188b5dfd5ea41fd22f Mon Sep 17 00:00:00 2001
From: CY Fung <fungcheokyin@gmail.com>
Date: Mon, 9 Jan 2023 05:05:57 +0800
Subject: Week 198 Task 1

---
 challenge-198/cheok-yin-fung/perl/ch-1.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 challenge-198/cheok-yin-fung/perl/ch-1.pl

diff --git a/challenge-198/cheok-yin-fung/perl/ch-1.pl b/challenge-198/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..43bfd8a1c2
--- /dev/null
+++ b/challenge-198/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,19 @@
+# The Weekly Challenge 198
+# Task 1 Max Gap
+
+use v5.30.0;
+use warnings;
+use List::Util qw/max/;
+use List::MoreUtils qw/slide/;
+
+sub mg {
+    my @list = @_;
+    return 0 if scalar @list == 1;
+    my @slided = slide {$b-$a} @list;
+    my $max = max @slided;
+    return scalar grep {$max == $_} @slided;
+}
+
+use Test::More tests=>2;
+ok mg(1,2,5,8) == 2;
+ok mg(3) == 0;
-- 
cgit