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?
recorrido x xs
siempre devolverá-1
porquex
es un miembro dexs
. Por cierto, ¿porqué noBool
?