Validate International Securities Identification Number: Difference between revisions

Content added Content deleted
Line 1,496: Line 1,496:
validISIN :: String -> Bool
validISIN :: String -> Bool
validISIN =
validISIN =
((&&) . isinPattern)
(&&) . isinPattern
<*> (luhn . (show <=< stringInts))
<*> luhn . (show <=< stringInts)


isinPattern :: String -> Bool
isinPattern :: String -> Bool
Retrieved from "https://rosettacode.org/wiki/Validate_International_Securities_Identification_Number"