Skip to content

Instantly share code, notes, and snippets.

@lattejed

lattejed/gist:5694318

Created June 2, 2013 18:06
Show Gist options
  • Save lattejed/5694318 to your computer and use it in GitHub Desktop.
Save lattejed/5694318 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
measure :: (String, String) -> Int
measure (_,ds) =
length $ filter (=='c') ds'
where ds' = dropWhile (=='c') [head a | a <- group ds]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment