From 2ce0d1e77d6261b0a2ba07369482c78c7d237ab4 Mon Sep 17 00:00:00 2001 From: drbaggy Date: Mon, 18 Oct 2021 11:21:50 +0100 Subject: fixed code --- challenge-135/james-smith/perl/ch-1.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/challenge-135/james-smith/perl/ch-1.pl b/challenge-135/james-smith/perl/ch-1.pl index a91fc49d88..62022269aa 100644 --- a/challenge-135/james-smith/perl/ch-1.pl +++ b/challenge-135/james-smith/perl/ch-1.pl @@ -23,9 +23,9 @@ done_testing(); sub middle3 { my $n = shift; return 'Not a number' unless $n =~ m{^-?\d+$}; - return 'Too short' unless $n =~ m{\d{3}}; - return 'Even digits' if $n =~ m{^-?(?:\d\d)+$}; - $n =~ s{^-}{}; - return substr $n, (-3 + length $n ) / 2, 3; + $n = abs $n; + return length $n < 3 ? 'Too short' + : (length $n)%2 ? substr $n, (-3 + length $n ) / 2, 3 + : 'Even digits'; } -- cgit