From 73de10891e10ae3444d1a10e971baef9eba947bd Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 15 Nov 2021 21:16:47 +0000
Subject: Task 1

---
 challenge-139/perlboy1967/ch-1.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 challenge-139/perlboy1967/ch-1.pl

diff --git a/challenge-139/perlboy1967/ch-1.pl b/challenge-139/perlboy1967/ch-1.pl
new file mode 100755
index 0000000000..6d613fe027
--- /dev/null
+++ b/challenge-139/perlboy1967/ch-1.pl
@@ -0,0 +1,31 @@
+#!/bin/perl
+
+=pod
+
+The Weekly Challenge - 139
+ - https://perlweeklychallenge.org/blog/perl-weekly-challenge-139/#TASK1
+
+Author: Niels 'PerlBoy' van Dijke
+
+TASK #1 › JortSort
+Submitted by: Mohammad S Anwar
+
+You are given a list of numbers.
+
+Write a script to implement JortSort. It should return true/false depending 
+if the given list of numbers are already sorted.
+
+=cut
+
+use v5.16;
+use strict;
+use warnings;
+
+use List::MoreUtils qw(none slide);
+
+sub jortSort(@) {
+  no warnings 'once';
+  none{$_<0}(slide{$b-$a}@_);
+}
+
+printf "(%s) => %d\n", join(',',@ARGV), jortSort(@ARGV) // 'undef';
-- 
cgit