在 Haskell 中转换为二进制表示法

如何解决在 Haskell 中转换为二进制表示法

有没有更好的方法来检查这段代码中的 n 和 c，也许是模式匹配或者更像 Haskell 的东西？

toBin :: Int -> Int -> [Int]
toBin n c
    | n < 0 = []
    | c <= 0 = []
toBin n c = toBin (n `div` 2) (c - 1) ++ [n `mod` 2]

解决方法

好吧，它们都是布尔表达式，因此您可以将它们与 ||

结合使用

toBin n c | n < 0 || c <= 0 = []

,

这里最好使用累加器，这样可以防止 O(n) 追加导致 O(n²) 代码中的算法：

toBin :: Int -> Int -> [Int]
toBin = go []
  where go rs n c
          | n < 0 || c <= 0 = rs
          | otherwise = go (r:rs) q (c-1)
          where (q,r) = quotRem n 2

因此，我们从一个空列表开始，每次在列表前面加上下一个余数，直到数字为零，或位数为 0。