21 lines
287 B
Haskell
21 lines
287 B
Haskell
-- Eliminate consecutive duplicates
|
|
-- incomplete
|
|
|
|
{-
|
|
compress :: [a] -> [a]
|
|
|
|
compress [] = []
|
|
compress (x:xs:xss) =
|
|
-}
|
|
|
|
compressAux :: a -> [a] -> a
|
|
compressAux elem [] = elem
|
|
compressAux elem [x] = elem
|
|
compressAux elem (x:xs)
|
|
|
|
f aabbcc
|
|
(x:xs:xss) if x == xs then
|
|
|
|
|
|
-- aaaabccaadeee
|