Haskell：库函数可将十六进制转换为二进制

Question

是否有一个库函数可将十六进制数字（0-F）转换为其等效的四位数二进制值？例如9 = 1001，C = 1100。

我已经看过Data.Hex，Data.HexString，Numeric和其他几个相关的库，并且我假设我可以找到想要的函数。但是，我对Haskell还是很陌生，可能忽略了一些简单的事情。

编辑：不是重复的，IMO。我的问题是关于直接从十六进制转换为二进制的问题，链接的问题（及其答案）没有提及。

Answer 1

没有一个库函数可以将十六进制数字转换为二进制字符串。您可以使用readHexfrom模块Numeric将十六进制数字转换为整数，并printf使用Text.Printf模块生成二进制字符串，如下所示：

import Numeric (readHex)
import Text.Printf (printf)

hexToBin :: Char -> Maybe String
hexToBin c
  = case readHex [c] of
      (x,_):_ -> Just $ printf "%04b" (x::Int)
      _       -> Nothing

给予：

> map hexToBin (['0'..'9'] ++ ['A'..'G'])
[Just "0000",Just "0001",Just "0010",Just "0011",Just "0100",
Just "0101",Just "0110",Just "0111",Just "1000",Just "1001",
Just "1010",Just "1011",Just "1100",Just "1101",Just "1110",
Just "1111",Nothing]