Skip to content

Instantly share code, notes, and snippets.

@LukaHorvat

LukaHorvat/ex7.hs

Created December 2, 2014 13:13
Show Gist options
  • Save LukaHorvat/70270439b26307c9fd03 to your computer and use it in GitHub Desktop.
Save LukaHorvat/70270439b26307c9fd03 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ex7.hs
nubRuns :: Eq a => [a] -> [a]
nubRuns [] = []
nubRuns (x : xs) = foldr (\x list -> if x == head list then list else x : list) [x] xs
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment