-- Ex1.c
deleteAll :: Eq a => a -> [a] -> [a]
deleteAll elt xs = foldr (\v -> \acc -> if v == elt then acc else v:acc) [] xs
deleteAll :: Eq a => a -> [a] -> [a]
deleteAll elt xs = foldr (\v -> \acc -> if v == elt then acc else v:acc) [] xs
deleteAll elt xs = foldr (\v -> \acc -> if v == elt then acc else v:acc) [] xs