Skip to main content
se añadieron 339 caracteres en el cuerpo
Origen Enlace
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)
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

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)
se añadieron 157 caracteres en el cuerpo
Origen Enlace
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

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.

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

Origen Enlace

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.