从haskell的列表中找到最小偶数

Question

请帮我写一个haskell中的函数，它可以帮助我找到列表中的最小偶数。包含列表包含所有奇数抛出异常。我能够编写两个单独的函数但不能编写一个完整的程序。我的代码如下。

retainEven :: [Int] -> [Int]
retainEven [] = []
retainEven (n:ns)= 

    if ((mod n 2) == 0)
        then n : (retainEven ns) 
    else retainEven ns


enter code here




mymin [] = error "no element" 
mymin [x] = x  
mymin (x:y:xs) = mymin ((if x < y then x else y):xs)

Answer 1

过滤偶数的元素，然后采用最小值：

minEvens = minimum . filter even