4

我想知道为什么我会收到这个错误。这是一个分配，我要将整数从整数转换为十六进制值。当我将整数值修改为 时，我调用此辅助转换函数16。16（与我在递归调用中除以的整数值连接）

这是我的代码：

    changeToHex :: Integer -> String
    --main function

    toHex :: Integer -> String
    toHex x
        |x == 0         = '0'
        |x == 1         = '1'
        |x == 2         = '2'
        |x == 3         = '3'
        |x == 4         = '4'
        |x == 5         = '5'
        |x == 6         = '6'
        |x == 7         = '7'
        |x == 8         = '8'
        |x == 9         = '9'
        |x == 10        = 'A'
        |x == 11        = 'B'
        |x == 12        = 'C'
        |x == 13        = 'D'
        |x == 14        = 'E'
        |x == 15        = 'F'
4

1 回答 1

10

使用单引号 ( 'F') 为您提供Char文字。对于String实际上是Char值列表的文字，您应该使用双引号 ( "F")。

由于String是 的别名[Char]，因此如果您想从 a 转换Char为 a String，您只需将其包装Char在一个单元素列表中即可。这样做的函数可能如下所示：

stringFromChar :: Char -> String
stringFromChar x = [x]

这通常是内联写的，如(:[])，等价于\x -> (x : [])or \x -> [x]。

顺便说一句，您可以大大简化代码，例如使用Enumtypeclass：

toHexDigit :: Int -> Char
toHexDigit x
  | x < 0 = error "toHex: negative digit value"
  | x < 10 = toEnum $ fromEnum '0' + x
  | x < 15 = toEnum $ fromEnum 'A' + x - 10
  | otherwise = error "toHex: digit value too large"

更一般地说，任何时候你都有这样的功能：

f x
  | x == A = ...
  | x == B = ...
  | x == C = ...
  ...

您可以使用以下命令将其转换为更少重复、更有效的等价物case：

f x = case x of
  A -> ...
  B -> ...
  C -> ...
  ...
于 2013-02-19T02:23:38.817 回答