Rosetta Code

Validate International Securities Identification Number: Difference between revisions

Page Discussion

Validate International Securities Identification Number (view source)

Revision as of 07:24, 31 May 2017

1 byte removed ,  7 years ago
→‎{{header|Haskell}}: Tidied character type pattern check (isinPattern)
m (→‎{{header|Haskell}}: (Removed a redundant import))
(→‎{{header|Haskell}}: Tidied character type pattern check (isinPattern))
Line 927:
 
isinPattern isin =
and
(length isin == 12) &&
all (`elem` capitals)[ (take 2length isin) &&== 12
all (((||) ., all (`elem` capitals)) <*> (`elem` digits)) (droptake 2 $ take 11 isin) &&
, all (`elem` (lastcapitals isin)++ digits)) ((take 9 . drop 2) isin)
, last isin `elem` digits
]
 
luhn x =
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/255044"