diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-10-19 16:31:20 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-10-19 16:31:20 +0100 |
| commit | 763ef4dce78fef05d7b450ae9dd71c9cba94b4af (patch) | |
| tree | 22fc45432622cf80adcb881efef69e0641f0f0e2 | |
| parent | e058ca9cfd9410e2433acefd56d0d601501c5c0c (diff) | |
| download | perlweeklychallenge-club-763ef4dce78fef05d7b450ae9dd71c9cba94b4af.tar.gz perlweeklychallenge-club-763ef4dce78fef05d7b450ae9dd71c9cba94b4af.tar.bz2 perlweeklychallenge-club-763ef4dce78fef05d7b450ae9dd71c9cba94b4af.zip | |
added some golfed solutions
| -rw-r--r-- | challenge-135/james-smith/perl/ch-2.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-135/james-smith/perl/ch-2.pl b/challenge-135/james-smith/perl/ch-2.pl index 1e0097ff0d..9c09365af4 100644 --- a/challenge-135/james-smith/perl/ch-2.pl +++ b/challenge-135/james-smith/perl/ch-2.pl @@ -19,6 +19,7 @@ my @TESTS = ( ); is( is_sedol($_->[0]), $_->[1] ) for @TESTS; +is( is_sedol_compact($_->[0]), $_->[1] ) for @TESTS; done_testing(); @@ -36,3 +37,10 @@ sub is_sedol { return $t % 10 ? 0 : 1; } +sub is_sedol_compact { + return 0 unless$_[0]=~/^[0-9B-HJ-NP-TW-Z]{6}\d$/; + my($t,@w)=qw(0 1 3 1 7 3 9 1); + $t+=(/\d/?$_:-55+ord$_)*shift@w for split//,$_[0]; + $t%10?0:1; +} + |