From 44aa730c9ec0c61fa35a035db0fc0c78cc237909 Mon Sep 17 00:00:00 2001 From: robbie-hatley Date: Mon, 1 Jan 2024 17:50:23 -0800 Subject: Fixed error in 250-2. --- challenge-250/robbie-hatley/perl/ch-2.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-250/robbie-hatley/perl/ch-2.pl b/challenge-250/robbie-hatley/perl/ch-2.pl index 39c22eb77e..07ab378791 100755 --- a/challenge-250/robbie-hatley/perl/ch-2.pl +++ b/challenge-250/robbie-hatley/perl/ch-2.pl @@ -77,13 +77,13 @@ BEGIN {$t0 = time} # Is a given array ref a ref to a non-empty array containing only alphanumeric strings? sub is_array_of_alnums ($aref) { 'ARRAY' ne ref($aref) || 0 == scalar(@$aref) and return 0; - for (@$aref) {!/^[[:alnum:]]+$/ and return 0} + for (@$aref) {!/^[a-zA-Z0-9]+$/ and return 0} return 1; } # What is the "alphanumeric string value" of a given scalar? sub alnum_string_value ($x) { - $x=~/^[[[:digit:]]+$/ and return 0+$x or return length($x); + $x=~/^[0-9]+$/ and return 0+$x or return length($x); } # What is the maximum "alphanumeric string value" -- cgit