如何将用户输入转换为 Integer？

Question

Libs.hs：

...
--COMBINED FUNCTION TO VALIDATE A CREDIT CARD NUMBER

validateCard :: Integer -> Bool
validateCard x = compute x `mod` 10 == 0
    where
      compute :: Integer -> Integer
      compute = addNumbers . subDoubles . doubleNumber . cardNumber

--DISPLAY USER MSG IF CARD IS VALID OR NOT
isValid card
  | card == True = "This is a valid credit card!"
  | otherwise = "This card is invalid"

主要.hs：

main :: IO ()
main = do
    putStrLn "Please enter a credit card number:"
    input <- getLine
    isValid $ validateCard (read input :: Integer) --Converted to an Integer

所以我有这段 Haskell 代码。 问题是 function 采用 Integer 但用户输入返回一个字符串 ([Char])。 我尝试使用read的 function 将其转换为 Integer ，但它与 [Char] 与预期类型 IO () 匹配。 基本上我不知道如何将用户输入从字符串转换为 Integer。 任何建议将不胜感激！

Answer 1

查看您的isValid function 的类型：它是Bool -> [Char] 。

编译器会告诉你

Couldn't match type '[]' with 'IO'

main是一个 IO，所以你不能在那里使用非 IO 值。 如果要打印isValid返回的字符串，只需将其传递给putStrLn ：

putStrLn $ isValid $ validateCard (read input)

无需指定read调用的类型， validateCard的类型让编译器推断它。

请注意，当您有一个非常短的单子代码时，有时您可以选择以无点样式编写它，而不使用变量：

    main = do
      putStrLn "Please enter a credit card number:"
      fmap (isValid . validateCard . read) getLine >>= putStrLn

Answer 2

事实上，信用卡号并不是一个数字。 这是一个简短的数字序列。 您可以使用例如 [Int] 来表示，尽管这确实允许无限长的信用卡号和大于 9 或小于 0 的数字。要获得[Char]-> [Int] ，您可以使用map和Char-> Int 。 使用 Hoogle，我找到Data.Char.digitToInt 。

希望您可以信任您的用户输入一个有限的信用卡号码，并且subDoubles= flip mod 10与不超过一个字符的数字相结合，应将数字保持在[0..9]范围内。 哦，最后您可能希望使用putStrLn将结果报告给用户。