From 70bc4f29beb9c6975ef65840c9bf99c43f893347 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Mon, 5 Dec 2022 08:23:46 +0000
Subject: Update ch-1.pl

---
 challenge-194/james-smith/perl/ch-1.pl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/challenge-194/james-smith/perl/ch-1.pl b/challenge-194/james-smith/perl/ch-1.pl
index c0583712de..35d08c6689 100644
--- a/challenge-194/james-smith/perl/ch-1.pl
+++ b/challenge-194/james-smith/perl/ch-1.pl
@@ -23,14 +23,16 @@ sub digit_2359 {
   sub {
     $_[0] eq '?' ? ( $_[1]<4 ? 2 : 1 )
   : $_[1] eq '?' ? ( $_[0]<2 ? 9 : 3 )
-  : $_[3] eq '?' ? 5 : 9
+  : $_[3] eq '?' ? 5
+  :                9
   }->( split //, $_[0] );
 }
 
 sub digit_2400 {
   sub {
-    $_[0] eq '?' ? ( $_[1]==4 && $_[3]==0 && $_[4]==0 || $_[1]<4 ? 2 : 1 )
-  : $_[1] eq '?' ? ( $_[0]<2 ? 9 : $_[3]==0 && $_[4]==0 ? 4 : 3 )
-  : $_[3] eq '?' ? 5 : 9
+    $_[0] eq '?' ? ( $_[1]<4 ? 2 : $_[1]==4 && $_[3]==0 && $_[4]==0 ? 2 : 1 )
+  : $_[1] eq '?' ? ( $_[0]<2 ? 9 :             $_[3]==0 && $_[4]==0 ? 4 : 3 )
+  : $_[3] eq '?' ? 5
+  :                9
   }->( split //, $_[0] );
 }
-- 
cgit