From 70bad1755ee12f12d911fb1e93b2379e0027404d Mon Sep 17 00:00:00 2001 From: James Smith Date: Mon, 19 Dec 2022 09:12:39 +0000 Subject: Delete ch-1.pl --- challenge-196/james-smith/ch-1.pl | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 challenge-196/james-smith/ch-1.pl diff --git a/challenge-196/james-smith/ch-1.pl b/challenge-196/james-smith/ch-1.pl deleted file mode 100644 index 46c361058b..0000000000 --- a/challenge-196/james-smith/ch-1.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/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