0

Tengo el siguiente código:

recorrido :: Int -> [Int] -> Int
recorrido _ [] = 0
recorrido x (y:ys) = if x/=y then recorrido x ys else (-1)

unique :: [Int] -> [Int]
unique [] = []
unique (x:xs) = [ x | x <- xs , recorrido x xs == 0]

La función unique recorre cada elemento de la lista, y con recorrido comparo el elemento con los demás elementos de la lista, buscando saber si ese elemento se repite o no. Si es 0, no se repite y se agrega en el resultado final, si se repite retorna -1. Cuando compilo, aparentemente no hay errores, pero siempre me sale lista vacía:

PS C:\Users\CIEC\Documents\HASKELL> ghci 1.hs
GHCi, version 8.6.5: http://www.haskell.org/ghc/  :? for help
[1 of 1] Compiling Main             ( 1.hs, interpreted )
Ok, one module loaded.
*Main> unique [1,2,3]
[]
*Main> unique [1,1,1]
[]
*Main> unique [1,2,3,1]
[]

¿En que estoy fallando?

2
  • recorrido x xs siempre devolverá -1 porque x es un miembro de xs. Por cierto, ¿porqué no Bool? Commented el 26 ene. 2021 a las 21:32
  • También probé con Bool, osea, reemplacé 0 y -1 por True y False, y el tipo de dato lo cambié, pero seguía igual. Y con respecto a lo primero, si, entiendo el error ahí. Commented el 27 ene. 2021 a las 22:58

1 respuesta 1

0

En unique, cuando haces la compresión [ x | x <- xs , recorrido x xs == 0] estás ocultando el argumento de la función x.

Por ejemplo, cuando haces unique [1, 2, 3], se hacen las siguientes sustituciones:

unique [1, 2, 3]
--> [x | x <- [2, 3], recorrido x [2,3] == 0]
<-- recorrido 2 [2,3] == -1
<-- recorrido 3 [2,3] == -1
--> []

Un modo sencillo es hacer unique recursiva:

unique :: [Int] -> [Int]
unique [] = []
unique (x:xs) = x : unique [ y | y <- xs, x /= y]
1
  • Claro, entiendo el error que marcás. Gracias por el código y la ayuda! Commented el 27 ene. 2021 a las 23:03

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.