list - 在 Haskell 中使用递归和模式匹配删除重复的列表元素

Question

我正在制作一个删除列表中连续出现两次或多次的元素的函数。它用一个事件替换它们。我只使用递归和模式匹配(没有库列表函数)。

该函数应如何工作的示例:

unrepeat [True,True,True,True] --> [True]

unrepeat [1,1,2,1,3,3,3] --> [1,2,1,3]

到目前为止我所拥有的:

unrepeat :: Eq a => [a] -> [a]
unrepeat [] = []
unrepeat [x] = [x]
unrepeat (x:xs) = x : [ k | k <- unrepeat(xs), k /=x]

Answer 1

我相信您的实现将删除列表中的所有重复项，看起来您只想在列表中保留一个元素，如果它不等于下一个元素。

试试这个:

unrepeat :: Eq a => [a] -> [a]
unrepeat [] = []
unrepeat [x] = [x]
unrepeat (x1:x2:xs) = if x1 == x2 then unrepeat(x2:xs) else x1:unrepeat(x2:xs)