From e0dd4b5e72551ca1412554f0b9d11c62a3b08af0 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Tue, 6 Dec 2022 12:08:27 +0000
Subject: Update ch-2.pl

---
 challenge-194/james-smith/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-194/james-smith/perl/ch-2.pl b/challenge-194/james-smith/perl/ch-2.pl
index c99ad2db52..0097971ae6 100644
--- a/challenge-194/james-smith/perl/ch-2.pl
+++ b/challenge-194/james-smith/perl/ch-2.pl
@@ -14,5 +14,5 @@ done_testing();
 
 sub check {
   my %f; $f{$_} ++ for split //, $_[0];
-  sub { @_>2 && $_[0]==$_[1]+1 && $_[-1]==$_[1] }->( sort {$b<=>$a} values %f ) || 0;
+  sub { @_<2 || $_[0]==$_[1]+1 && $_[-1]==$_[1] }->( sort {$b<=>$a} values %f ) || 0;
 }
-- 
cgit