Haskell 返回十六进制值列表

Question

我正在尝试定义 function “decToHex”，它返回与给定数字的十六进制值相对应的字符列表。 例如，1128 = ['4','6','8']

这是我的 function

decToHex :: Int -> [Char]
list = ["0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"]
listHexa = []
decToHex x
  | x < 16 = list !! x
  | otherwise = decToHex (x `div` 16) : ((list !! (x `mod` 16)) : listHexa)

但我得到这个错误：

• Couldn't match type ‘[Char]’ with ‘Char’
  Expected type: [Char]
    Actual type: [[Char]]
• In the expression:
    decToHex (x `div` 16) : ((list !! (x `mod` 16)) : listHexa)

我错过了什么？

Answer 1

您的list是[String]类型，因为每个字母都有一个String 。 相反，通过用单引号替换双引号使其成为Char列表。

Answer 2

回想一下不对称运算符:在列表的左侧添加一个元素，而对称运算符++连接两个列表。

因此，对于以以下方式开头的表达式：

decToHex (x `div` 16) :  ... whatever ...

:的左操作数已经是一个字符串，即一个 Char 的列表。 所以整个表达式的类型必须是[[Char]] 。 但这与您的 function decToHex类型签名相冲突，后者表示它只返回一个[Char]简单列表。

旁注 1：当十六进制数字列表被称为hexDigits而不是普通的list时，事情就不会那么混乱了。

旁注2：在除法中，如果您需要商和余数，则使用 function divMod而不是单独使用div和mod更具可读性和效率。

因此，我们有以下代码：

hexDigits  = ["0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"]

decToHex :: Int -> [Char]
decToHex x
    | x < 0      =  '-' : decToHex (-x)
    | x < 16     =  hexDigits !! x
    | otherwise  =  let  (q, r) = divMod x 16
                    in  (decToHex q)  ++  (hexDigits !! r)

旁注3：

就像其他一切一样，列表在 Haskell 中是不可变的。 这意味着运算符++必须通过复制其左操作数来工作。 因此，以这种方式使用++进行递归是非常低效的。 您可能想找到一种方法来使用 operator :作为您的主要递归引擎。 您可能需要一个更简单的hexDigits列表，如箭头的答案中提到的"0123456789ABCDEF" 。