1 module MyList (minus) where 2 3 minus :: (Eq x) => [x] -> [x] -> [x] 4 xs `minus` ys = foldl rmv xs ys 5 rmv :: (Eq x) => [x] -> x -> [x] 6 [] `rmv` y = [] 7 (x:xs) `rmv` y = if x == y then xs else x : (xs `rmv` y)