diff options
| -rwxr-xr-x | challenge-250/robbie-hatley/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-250/robbie-hatley/perl/ch-2.pl b/challenge-250/robbie-hatley/perl/ch-2.pl index 39c22eb77e..af08afe279 100755 --- a/challenge-250/robbie-hatley/perl/ch-2.pl +++ b/challenge-250/robbie-hatley/perl/ch-2.pl @@ -77,17 +77,17 @@ 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" -#of the elements of an array of alphanumeric strings? +# of the elements of an array of alphanumeric strings? sub max_alnum_string_value ($aref) { return max map {alnum_string_value $_} @$aref; } |