list - Haskell游程编码函数

Question

此编码函数需要以下输出，代码 "aaccbbaa"= [('a',2),('c',2),('b',2),('a',2)

但是，这是我的输出。代码 "aaccbbaa"= [('a',4),('c',2),('b',2)]

这是我的功能，

code :: Eq a => [a] -> [(a,Int)]
code [] = []
code (x:xs) = [(x, length(filter(==x)(x:xs)))] ++ code(filter (/=x)(xs))

如何让它在下一个字母出现时重新计数？

Answer 1

有一个group Data.List

中的函数

code :: Eq a => [a] -> [(a,Int)]
code = map (\x -> (head x, length x)) . group

---

λ> code "aaccbbaa"
[('a',2),('c',2),('b',2),('a',2)]