deleteN :: Int -> [a] -> [a]
deleteN _ [] = []
deleteN n (h:t)
| n == 0 = t
| otherwise = h : deleteN (n-1) t
Esta solución está bastante optimizada, es recursiva terminal y tan sólo recorre la lista una vez.
Para eliminar los elementos duplicados(Según la edición de la pregunta) puedes usar la función nub
,del módulo Data.List
, de esta manera nub lista
.
Para no usar librerías(Indicado en comentario), se puede consultar el source:
nub :: (Eq a) => [a] -> [a]
nub l = nub' l []
where
nub' [] _ = []
nub' (x:xs) ls
| x `elem` ls = nub' xs ls
| otherwise = x : nub' xs (x:ls)