Hay varias formas de hacerlo. Lo primero que se me vino a la mente fue usar un HashSet, aunque es ligeramente más complicado y esa solución siento que está más del lado imperativo que del funcional.
Como sea, la solución más sencilla y "puritana", hablando de programación funcional, que se me ocurrió es la siguiente:
sacoBolita :: [Int] -> Int -> [Int]
sacoBolita [] e = []
sacoBolita (x:xs) e = if x == e then xs else x:(sacoBolita xs e)
Básicamente usamos pattern matching y recursividad para eliminar (realmente construimos una nueva lista) únicamente el primer elemento en la lista x:xs
que sea igual a e
. Para clarificar aún más:
- Si
x == e
se regresa la lista pero SIN el elemento x
. A esta lista retornada será agregada el resto de elementos x
provenientes de llamadas anteriores a sacoBolita
(que justamente se hace en el else
) o si no hay más llamadas, simplemente se retorna la lista y listo :)
- Si
x /= e
sabemos entonces que x
debe existir en la lista que retornemos por lo que el resultado debe ser [x, restoDeElementos...]
(o en hs x:restoDeElementos
), y para saber cuál es el resto de elementos simplemente hacemos recursividad. Nótese que no retornamos [x, xs...]
(o x:xs
) porque no sabemos aún si existe algún x
dentro de xs
que satisfaga x == e
(de ahí la necesidad de recursividad).
Por último, el comportamiento asintótico del algoritmo antes descrito es O(n)
.
filter
), normal y corriente, y que tienes disponible en haskell por defecto. En la lista de ejemplo tienes dos 5. ¿El resultado final ha de ser una lista con los dos 5 ([5,5]
) o sólo una lista con un 5 ([5]
)? Por cierto, en programación funcional los errores tienen otra dinámica. Si has definido tu función para devolver listas, entonces un fallo debería devolver una lista, en este caso la lista vacía.Maybe [Bolitas]
, pero no sé si es lo que buscas.