Validate International Securities Identification Number: Difference between revisions
Validate International Securities Identification Number (view source)
Revision as of 17:50, 30 May 2017
, 7 years ago→{{header|Haskell}}: (combined some type signatures)
m (→{{header|Haskell}}: used quotRem in lieu of divMod) |
m (→{{header|Haskell}}: (combined some type signatures)) |
||
Line 923:
import Data.Maybe (fromMaybe)
isinValid, isinPattern, luhn :: String -> Bool
isinValid isin = isinPattern isin && luhn (asNumericString isin)
isinPattern isin =
(length isin == 12) &&
Line 933 ⟶ 932:
elem (last isin) digits
luhn =
(0 ==) .
(`
sum .
fmap (uncurry (+) . (`quotRem` 10)) .
|