为什么文件夹的这种大小写表达式不起作用？

Question

以下函数应采用“ 7-8-X”并转换为[7,8,10]

convertCharToInteger :: Char -> Integer
convertCharToInteger = (read::String->Integer) . (:[])

parseAsNumbers :: String -> [Integer]
parseAsNumbers xs = foldr (\x acc -> case x of '-' -> acc
                                           'X' -> 10:acc
                                            _  -> (convertCharToInteger x):acc
                      ) [] xs

它给了我以下错误

表达式上下文中的模式语法：

\x acc
    -> case x of {
      '-' -> acc
      'X' -> 10 : acc (...) } -> (convertCharToInteger x) : acc

Answer 1

您应该开始在新行上列出案例，并按如下方式对齐它们：

parseAsNumbers :: String -> [Integer]
parseAsNumbers xs = foldr (\x acc -> case x of
                                       '-' -> acc
                                       'X' -> 10:acc
                                       _   -> (convertCharToInteger x):acc
                      ) [] xs

Answer 2

模式应对齐，如下所示：

parseAsNumbers :: String -> [Integer]
parseAsNumbers xs = foldr (\x acc -> case x of '-' -> acc
                                               'X' -> 10:acc
                                               _   -> (convertCharToInteger x):acc) [] xs

同样，您可以使用read而不是convertCharToInteger 。

parseAsNumbers :: String -> [Integer]
parseAsNumbers xs = foldr doit [] xs
    where
        doit = \x acc -> case x of
            '-' -> acc
            'X' -> (10:acc)
            _   -> (read [x]:acc)