Haskell将字符串转换为二进制数

Question

我需要将一个字符串转换为Haskell中的二进制数列表。 我已经编写了两个函数来执行此操作，但是我不确定如何将它们组合为一个。 到目前为止，我有

dec[]=[]
dec(x:xs) = ord(x): dec xs

将列表中的每个字符转换为十进制数。 下一个功能

bin 0 = [0]
bin n| n `mod` 2 == 1 = bin (n `div` 2) ++ [1]
     | n `mod` 2 == 0 = bin (n `div` 2) ++ [0]

将十进制数转换为其等效的二进制数。 我不确定如何将第二个函数应用于列表中的每个元素，以便将每个字符转换为等效的二进制值。 我尝试使用where子句：

where n = dec(x:xs) = ord(x): dec xs

但这是无效的，因为同一行上有两个等号。 如何获得正确的功能？

Answer 1

您可以确定一个Int将以二进制形式存储。 它仅显示为十进制，因为在打印时会转换为十进制。 因此，名称dec是用词不当，该函数将String转换为代表每个字符的Unicode值的数字序列。 您可以使用map避免显式递归：

toUnicode :: String -> [Int]
toUnicode = map ord

请注意，此函数使用所谓的无点样式。 预期的参数丢失，但是在调用方提供时将传递给map 。

Bin函数不会编译，因为它以大写字母开头，使其成为数据构造函数。 您应以小写字母开头的函数命名。 根据示例输出，您希望二进制表示形式中的前导零，因此当值变为零时就不能停止转换。 您需要继续操作，直到转换了所需的数字位数（看来是8）为止。保持附加到列表的效率也很低。 最好先添加，然后反转结果。

toBinary :: Int -> [Int]
toBinary = go 8 [] where
    go 0 acc _ = reverse acc
    go n acc x = go (n-1) (bit:acc) x' where
        (x', bit) = x `divMod` 2

在这里，我们使用一个辅助函数go ，它在建立1和0的列表时对剩余位数进行计数。

因此，现在我们有了一个将String转换为Int列表的函数，以及一个将Int转换为0/1 Int列表的函数，并且我们希望将它们粘合在一起以构成一个将String转换为函数的函数。到0/1 Int列表。 如果map toBinary函数map到toUnicode的结果上，则会得到一个列表列表，该列表必须串联起来形成一个列表。 这是一种常见的模式，因此有一个名为concatMap的函数：

stringToBinary :: String -> [Int]
stringToBinary = concatMap toBinary . toUnicode

在这里，我们使用函数组合首先将toUnicode应用于String ，然后对结果进行concatMap toBinary 。

Answer 2

我们想要的是一个类型为String -> String （ decimal -> binary ）的函数。 您现在拥有的是

dec :: String -> [Int]
bin :: Int -> [Int] -- use *lowercase*

因此，似乎不可能仅用这两个组成String- String -> String类型的函数。 此外， ord不是您想要的。

*Main> dec "123"
[49,50,51]
*Main> bin 123
[0,1,1,1,1,0,1,1]

从现在开始，可能的解决方案是：

*Main Data.Char> toBinary = map intToDigit . bin . read
*Main Data.Char> toBinary "123"
"01111011"

我想您的意图可能是dec :: String -> Int ，然后是bin . dec :: String -> [Int] bin . dec :: String -> [Int] 您可以遵循类型签名并重试。