[英]Remove repeating list elements using recursion and pattern matching in 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)
好吧,我有三个,一个标准递归,一个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
函数。 这些都可以在没有进口的情
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.