编写字符转整数函数时遇digitToInt未定义错误求解决

你遇到的错误是因为digitToInt函数不在默认作用域里，它属于Data.Char模块，必须先导入才能调用。另外，digitToInt返回的是Int类型，而你的函数声明返回Integer，需要用fromIntegral做类型转换来匹配。

修改后的基础可用代码 #

import Data.Char (digitToInt)

char_to_int :: Char -> Integer
char_to_int c = fromIntegral (digitToInt c)

main = do
    putStrLn "Enter a digit character (0-9):"
    inputChar <- getChar
    putStrLn "The character you entered:"
    print inputChar
    putStrLn "Integer equivalent:"
    print (char_to_int inputChar)

关键修改点 #

• 开头添加import Data.Char (digitToInt)，导入所需函数，解决"Variable not in scope"错误。
• 用fromIntegral将digitToInt返回的Int类型转换为Integer，匹配你定义的函数返回类型。
• 把硬编码的'0'改成getChar获取用户输入，方便测试任意0-9的字符。

进阶：处理非数字字符的情况 #

如果想避免输入非数字字符时直接报错，可以增加判断逻辑：

import Data.Char (digitToInt, isDigit)

char_to_int :: Char -> Maybe Integer
char_to_int c
    | isDigit c = Just $ fromIntegral (digitToInt c)
    | otherwise = Nothing

main = do
    putStrLn "Enter a character:"
    inputChar <- getChar
    putStrLn "The character you entered:"
    print inputChar
    case char_to_int inputChar of
        Just num -> putStrLn $ "Integer equivalent: " ++ show num
        Nothing -> putStrLn "That's not a digit character!"

这样输入字母、符号等非数字字符时，程序会给出友好提示而非崩溃。

内容的提问来源于stack exchange，提问作者user13744763