Math.Checksum.EAN
Description
European Article Number
https://en.wikipedia.org/wiki/International_Article_Number
checksum :: String -> Exceptional String Int Source #
checksum "400638129240" == Success 5
valid :: String -> Maybe String Source #
valid "4006381292405" == Nothing valid "4006381292406" == Just "check sum does not match"