使用takeWhile和dropWhile的组函数

Question

我是Haskell的初学者。我想定义模块group中定义的函数Data.List。我所做的就是：

group []=[]

group (x:xs)=(x:[]):lista xs

然而，当我们一起有相同的字母时，它不会产生。我该怎么做？如果可能，请使用dropWhile和takeWhile。

Answer 1

提示

group :: (Eq a) => [a] -> [[a]]
group [] = []
group xs@(x:_) = -- what should be here?  
      where (f,s) = (takeWhile (==x) xs, dropWhile (==x) xs)