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

我正在制作一个函数，以删除列表中一行中出现两次或两次以上的元素。它用一次出现替换它们。我只使用递归和模式匹配(没有库列表功能)。

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

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]

最佳答案

我相信您的实现将删除列表中的所有重复项，好像您只希望将不等于下一个元素的元素保留在列表中。

试试看:

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)

关于list - 在Haskell中使用递归和模式匹配来删除重复的列表元素，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/50297700/