diff options
| author | James Smith <baggy@baggy.me.uk> | 2021-10-19 17:18:30 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-19 17:18:30 +0100 |
| commit | 1819858c52b80c4c0ad6f5aaec86145f8133319c (patch) | |
| tree | 1401974f60c3b8517212527f52b1aea6663c4571 | |
| parent | f0c53411527854718c62824b270aac3d0d2f041b (diff) | |
| download | perlweeklychallenge-club-1819858c52b80c4c0ad6f5aaec86145f8133319c.tar.gz perlweeklychallenge-club-1819858c52b80c4c0ad6f5aaec86145f8133319c.tar.bz2 perlweeklychallenge-club-1819858c52b80c4c0ad6f5aaec86145f8133319c.zip | |
Update README.md
| -rw-r--r-- | challenge-135/james-smith/README.md | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-135/james-smith/README.md b/challenge-135/james-smith/README.md index 79fea8463a..1681821363 100644 --- a/challenge-135/james-smith/README.md +++ b/challenge-135/james-smith/README.md @@ -87,7 +87,7 @@ Again we can compact the code - by removing spaces and a couple of rewrites: ```perl sub is_sedol_compact { - return 0 if$_[0]!~/^[0-9B-HJ-NP-TW-Z]{6}\d$/; + return 0if$_[0]!~/^[0-9B-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; |