SEDOLs: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,636: / Line 1,636: @@
 checkSum x =
   case traverse sedolValue x of
-    Right xs -> checkSumFromSedolValues xs
+    Right xs -> (show . checkSumFromSedolValues) xs
     Left annotated -> annotated
-checkSumFromSedolValues :: [Int] -> String
+checkSumFromSedolValues :: [Int] -> Int
 checkSumFromSedolValues xs =
-  show $
+  rem
-    rem
+    ( 10
-      ( 10
+        - rem
-          - rem
+          ( sum $
-            ( sum $
+              zipWith
-                zipWith
+                (*)
-                  (*)
+                [1, 3, 1, 7, 3, 9]
-                  [1, 3, 1, 7, 3, 9]
+                xs
-                  xs
+          )
-            )
+    )
-      )
 sedolValue :: Char -> Either String Int
@@ Line 1,660: / Line 1,659: @@
   | isDigit c = Right (ord c - ord '0')
   | isAsciiUpper c = Right (ord c - ord 'A' + 10)
 --------------------------- TEST -------------------------