Skip to content

Instantly share code, notes, and snippets.

@beastaugh

beastaugh/DropConsec.hs

Created September 1, 2011 10:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save beastaugh/1185896 to your computer and use it in GitHub Desktop.
Save beastaugh/1185896 to your computer and use it in GitHub Desktop.
Download ZIP
Drop consecutive elements of a list if they're the same, e.g. "AAABBACDDD" => "ABACD"
Raw
DropConsec.hs
module Data.List.DropConsec
( dropConsec
) where
import Data.List (dropWhile)
dropConsec :: Eq a => [a] -> [a]
dropConsec [] = []
dropConsec (x:xs) = x : dropConsec (dropWhile (== x) xs)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment