diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-10-19 19:58:13 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-10-19 19:58:13 +0100 |
| commit | a7aeb6dfe5a9f7e1e5fe5641fc859711ca5b0e42 (patch) | |
| tree | de6dd52c28b06173db2f81cc9954e52194534ee3 | |
| parent | a4bcff6a73947487e3e38ea21b9e2e6acade2ebf (diff) | |
| download | perlweeklychallenge-club-a7aeb6dfe5a9f7e1e5fe5641fc859711ca5b0e42.tar.gz perlweeklychallenge-club-a7aeb6dfe5a9f7e1e5fe5641fc859711ca5b0e42.tar.bz2 perlweeklychallenge-club-a7aeb6dfe5a9f7e1e5fe5641fc859711ca5b0e42.zip | |
1 char shorter
| -rw-r--r-- | challenge-135/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-135/james-smith/perl/ch-2.pl b/challenge-135/james-smith/perl/ch-2.pl index 4af6ee9a24..e0911fe6bd 100644 --- a/challenge-135/james-smith/perl/ch-2.pl +++ b/challenge-135/james-smith/perl/ch-2.pl @@ -38,7 +38,7 @@ sub is_sedol { } sub is_sedol_compact { - return 0if$_[0]!~/^[0-9B-HJ-NP-TW-Z]{6}\d$/; + return 0if$_[0]!~/^[\dB-HJ-NP-TW-Z]{6}\d$/; my($t,@w)=qw(0 1 9 3 7 1 3 1); $t+=(/\d/?$_:-55+ord$_)*pop@w for split//,$_[0]; $t%10?0:1 |