1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/env perl
use v5.38;
sub alphanumeric_string_value (@alphanumstring) {
use List::Util qw( max );
max( map( { $_ =~ /[a-zA-Z]/ ? length($_) : $_ + 0 } @alphanumstring ) );
}
sub MAIN() {
if (@ARGV) {
#| Run on command line argument
say alphanumeric_string_value(@ARGV);
}
else {
#| Run test cases
use Test2::V0 qw( is plan );
plan 2;
is alphanumeric_string_value(
( "perl", "2", "000", "python", "r4ku" ) ), 6,
'works for ("perl", "2", "000", "python", "r4ku")';
is alphanumeric_string_value( ( "001", "1", "000", "0001" ) ), 1,
'works for ("001", "1", "000", "0001")';
}
}
MAIN();
|
