-- 5.11
matches :: Int -> [Int] -> [Int]
matches a l = [ d | d <- l, d == a ]

myelem :: Int -> [Int] -> Bool
myelem x l = (matches x l) /= []