aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

47
Task/SEDOLs/Haskell/sedols.hs
View file

@ -1,22 +1,31 @@
import Data.Char
import Data.Char (isDigit, isAsciiUpper, ord)
char2value c | c `elem` "AEIOU" = error "No vowels."
| c >= '0' && c <= '9' = ord c - ord '0'
| c >= 'A' && c <= 'Z' = ord c - ord 'A' + 10
checkSum :: String -> String
checkSum =
show .
(`rem` 10) .
(-) 10 . (`rem` 10) . sum . zipWith (*) [1, 3, 1, 7, 3, 9] . (charValue <$>)
sedolweight = [1,3,1,7,3,9]
charValue :: Char -> Int
charValue c
| c `elem` "AEIOU" = error "No vowels."
| isDigit c = ord c - ord '0'
| isAsciiUpper c = ord c - ord 'A' + 10
checksum sedol = show ((10 - (tmp `mod` 10)) `mod` 10)
where tmp = sum $ zipWith (*) sedolweight $ map char2value sedol
main = mapM_ (\sedol -> putStrLn $ sedol ++ checksum sedol)
[ "710889",
"B0YBKJ",
"406566",
"B0YBLH",
"228276",
"B0YBKL",
"557910",
"B0YBKR",
"585284",
"B0YBKT" ]
-- TEST ----------------------------------------------------------------------
main :: IO ()
main =
mapM_
(putStrLn . ((++) <*> checkSum))
[ "710889"
, "B0YBKJ"
, "406566"
, "B0YBLH"
, "228276"
, "B0YBKL"
, "557910"
, "B0YBKR"
, "585284"
, "B0YBKT"
, "B00030"
]