确定Haskell中是否重复的显式递归

Question

这只是教程任务的一小部分，我们被要求首先使用列表推导然后使用显式递归来定义函数。

3. 使用列表理解，定义一个函数

复制的:: Eq a => a-> [a]-> Bool

它接受一个list元素和一个list，如果列表中有多个list元素，则返回True。 例如：

重复10 [1,2,11,11] = False

重复10 [1,2,10,11] = False

重复10 [1,2,10,10] =真

为此，我有以下代码：

duplicated::Eq a => a -> [a] -> Bool
duplicated n xs = length[x | x <- xs, x == n] > 1

但是，无论我如何看待这种攻击，我都无法找到一种通过显式递归实现此目标的方法。

Answer 1

这是使用显式递归执行的方法：

duplicated :: Eq a => a -> [a] -> Bool
duplicated _ []     = False
duplicated n (x:xs) = callback n xs
    where callback  = if x == n then elem else duplicated

运作方式如下：

1. 如果列表为空，则意味着在列表中甚至没有找到一个元素n 。 因此，我们返回False 。
2. 否则，如果列表的当前元素为n则意味着我们找到了一个元素n 。 因此，我们返回elem n xs ，它检查n是否也在xs中。
3. 否则，我们递归地调用duplicated n xs 。

希望能有所帮助。