Removes duplicate items that are adjacent to eachother
compress :: Eq a => [a] -> [a]
compress [] = []
compress (x:[]) = [x]
compress (x:y:xs) | x == y = compress (y:xs)
| otherwise = [x] ++ compress (y:xs)Removes duplicate items that are adjacent to eachother
compress :: Eq a => [a] -> [a]
compress [] = []
compress (x:[]) = [x]
compress (x:y:xs) | x == y = compress (y:xs)
| otherwise = [x] ++ compress (y:xs)