From d61c0fba73a6b0c05f042c0d8f294fba221cc8e5 Mon Sep 17 00:00:00 2001 From: James Smith Date: Tue, 19 Oct 2021 19:58:32 +0100 Subject: Update README.md --- challenge-135/james-smith/README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-135/james-smith/README.md b/challenge-135/james-smith/README.md index 262d090ea3..abbce3740c 100644 --- a/challenge-135/james-smith/README.md +++ b/challenge-135/james-smith/README.md @@ -89,7 +89,7 @@ Again we can compact the code - by removing spaces and a couple of rewrites: ```perl 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 -- cgit