From 1018ced38ae62189adabafe461e4b269f802273d Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Mon, 5 Dec 2022 07:23:57 +0000
Subject: Create ch-1.pl

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

diff --git a/challenge-194/james-smith/perl/ch-1.pl b/challenge-194/james-smith/perl/ch-1.pl
new file mode 100644
index 0000000000..c0583712de
--- /dev/null
+++ b/challenge-194/james-smith/perl/ch-1.pl
@@ -0,0 +1,36 @@
+#!/usr/local/bin/perl
+
+use strict;
+
+use warnings;
+use feature qw(say);
+use Test::More;
+use Benchmark qw(cmpthese timethis);
+
+my @TESTS = (
+ ['?3:00',2,2],
+ ['1?:00',9,9],
+ ['2?:00',3,4],
+ ['12:?5',5,5]
+ ['12:5?',9,9]
+);
+
+is( digit_2359( $_->[0] ), $_->[1] ) for @TESTS;
+is( digit_2400( $_->[0] ), $_->[2] ) for @TESTS;
+done_testing();
+
+sub digit_2359 {
+  sub {
+    $_[0] eq '?' ? ( $_[1]<4 ? 2 : 1 )
+  : $_[1] eq '?' ? ( $_[0]<2 ? 9 : 3 )
+  : $_[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
+  }->( split //, $_[0] );
+}
-- 
cgit