Массивы в Haskell

*Main> [2,3,4] `delete` [[0,1], [2,3,4], [5]]
[[0,1],[5]]

delete x = filter (x /=)

delSublist :: (Eq a) => [[a]] -> [a] -> [[a]]
delSublist [] _ = []
delSublist (x:xs) z | (x == z) = delSublist xs z
                    | otherwise = x : (delSublist xs z)
 
Main> delSublist [[1,2],[3,4],[5,6],[3,4],[7,8]] [3,4]
[[1,2],[5,6],[7,8]]

import qualified Data.Vector as V
 
remove :: Eq a => a -> V.Vector a -> V.Vector a
remove toRemove = V.filter (/= toRemove)

*Main> remove (V.fromList [1,2,3]) $ V.fromList [V.fromList [1,2], V.fromList [1,2,3], V.fromList [1]]
fromList [fromList [1,2],fromList [1]]
*Main>

import Data.Array
import Data.List
 
fromList :: (Ix i, Num i) => [e] -> Array i e
fromList l = listArray (1, genericLength l) l
 
remove :: (Ix i, Num i, Eq e) => e -> Array i e -> Array i e
remove it = fromList . filter (/= it) . elems