将我的工作Haskell代码转换为适当的Haskell代码

Question

我正试图进入haskell,所以我搞乱了,我写了自己的elem函数,但它看起来很笨重.什么是哈克尔的方法来实现这一目标？

elem' x xs = 
    if null xs 
        then False
        else 
            if x == (head xs)
                then True 
                else elem' x (tail xs)  

Answer 1

您可以使用模式匹配来简化代码

elem' _ [] = False 
elem ' x1 (x2:_) | x1 == x2 = True
elem' x (_:ret) = elem' x rest  

或者你可以采取一种完全不同的方法

elem' x = not . null . filter (== x)

(通过懒惰,它不会超过找到的元素,所以你可以这样做elem' 4 [1..])

对于那些倾向的人,也有一种折叠方法

elem' x = foldr ((||) . (x==)) False

这也很懒.

Answer 2

作为手动递归:

elem' :: Eq a => a -> [a] -> Bool
elem' x [] = False
elem' x (y:ys) = x == y || elem' x ys

或者使用any功能:

elem' x xs = any (==x) xs

要么

elem' x = any (==x)

甚至

elem' = any . (==)

(虽然我个人并不认为最后一个读得很好).