haskell_listas

sacaimpares xs = filter (\x -> even x) xs
mayor [x] = x
mayor (x:xs) =  if x > mayor xs then x else mayor xs
mayor2 [x] = x
mayor2 (x:xs)
    | x > mayor2 xs = x
    | otherwise = mayor2 xs

mitadpares [0] = 0
mitadpares (x:xs) = if even x then x `div` 2 :mitadpares xs else x:mitadpares xs