From 6e5d2292148456a658b5c543f684bd2f97d69778 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 5 Dec 2022 16:00:58 +0000
Subject: Task 1 - More robust, add length check

---
 challenge-194/perlboy1967/perl/ch-1.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-194/perlboy1967/perl/ch-1.pl b/challenge-194/perlboy1967/perl/ch-1.pl
index 8826c9ba6b..3e36138700 100755
--- a/challenge-194/perlboy1967/perl/ch-1.pl
+++ b/challenge-194/perlboy1967/perl/ch-1.pl
@@ -23,13 +23,13 @@ use Test::More;
 
 
 sub highestDigit ($) {
-  state $c = { -1=>-1, 0=>2, 1=>9, 2=>-1, 3=>5, 4=>9 };
+  state $c = { 0=>2, 1=>9, 2=>-1, 3=>5, 4=>9 };
 
-  ($_[0] =~ y/?/?/) != 1 ? -1 : $c->{index($_[0],'?')}
+  (length($_[0]) == 5 && $_[0] =~ y/?/?/) == 1 ? $c->{index($_[0],'?')} // -1 : -1;
 }
 
 
-my %t = qw(?0:00 2 1?:00 9 10:?2 5 12:1? 9 ??:00 -1 00?00 -1);
+my %t = qw(?0:00 2 1?:00 9 10:?2 5 12:1? 9 ??:00 -1 00?00 -1 00:00? -1 ?00:00 -1);
 
 for (sort keys %t) {
  is(highestDigit($_),$t{$_},"highestDigit('$_')");
-- 
cgit