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

Question

我正在创建一个函数，用于删除列表中连续出现两次或多次的元素。它会替换它们一次。我只使用递归和模式匹配（没有库列表函数）。

该功能应如何运作的例子：

• unrepeat [True,True,True,True] - ＆gt; [True]
• unrepeat [1,1,2,1,3,3,3] - ＆gt; [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)

Answer 2

好吧，我有三个，一个标准递归，一个foldr递归和一个列表理解。每个都与包括布尔值在内的任何列表完全相同。

首先，标准递归

rd [] = []; rd (x:xs) = x: rd (filter (/=x) xs)

这非常有效。它通过过滤匹配来减少列表最后一个列表的列表。

减少有助于折叠。

rd2 ls = foldr (\x acc -> x:filter (/=x) acc) [] ls

此foldr与之前的rd完全相同。它更简洁，因为暂停条件是隐含的，即列表的结尾。

列表理解也隐含地停止了。

rd3 ls = [d|(z,d)<- zip [0..] ls,notElem d $ take z ls]

删除连接列表中的重复项是union函数。这些都可以在没有进口的情况下工作。