From ee22f2d6123096d39049f40e6b59df51902eaf25 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Mon, 19 Dec 2022 09:12:31 +0000
Subject: Create ch-1.pl

---
 challenge-196/james-smith/perl/ch-1.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 challenge-196/james-smith/perl/ch-1.pl

diff --git a/challenge-196/james-smith/perl/ch-1.pl b/challenge-196/james-smith/perl/ch-1.pl
new file mode 100644
index 0000000000..46c361058b
--- /dev/null
+++ b/challenge-196/james-smith/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+use Test::More;
+use Benchmark qw(cmpthese timethis);
+
+my @TESTS = (
+  [ [3,1,4,2],     '3 4 2' ],
+  [ [1,2,3,4],     '' ],
+  [ [1,3,2,4,6,5], '1 3 2' ],
+  [ [1,3,2],       '1 3 2' ] );
+
+is( "@{[ pattern132( @{$_->[0]} ) ]}", $_->[1] ) for @TESTS;
+done_testing();
+
+sub pattern132 {
+  while(my$x=shift@_){
+    for my $i (0..$#_-1) {
+      next if $x > $_[$i];
+      ($x<$_)&&($_<=$_[$i])&&return $x,$_[$i],$_ for @_[$i+1..$#_]
+    }
+  }
+  ()
+}
-- 
cgit