Cześć,
Piszę funkcję do usuwania wartości z listy, które nie są unikalne. Tak wygląda moja funkcja:
myunique :: Eq a => [a] -> [a]
myunique xs = let r = [x | x <- xs, (elem x r)] in r
Niestety po wywołaniu dostaje Stack Overflow. Czy ktoś wie czemu tak się dzieje?
elem x r musi przeglądnąć wszystkie elementy listy, żeby zwrócić odpowiedź. W szczególności musi przejrzeć pierwszy element. Tylko, że żeby obliczyć pierwszy element, trzeba wywołać elem x r i tak się zagnieżdża w nieskończoność, aż do przepełnienia stosu. Leniwość jest fajna, ale nie wyliczy magicznie elementu, którego nie ma ;).
a może tak?
myunique = foldr (union . return) []
usun l = map fst $ sortBy (comparing snd) $ concat $ filter (null . tail) $ groupBy ((==) `on` fst) $ sortBy (comparing fst) $ zip l [1..]
n lg n zamiast n^2.