Skip to content

Instantly share code, notes, and snippets.

@metanest

metanest/parflatten.hs

Created March 17, 2016 06:09
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 metanest/e8c9546dde2f610f51d8 to your computer and use it in GitHub Desktop.
Save metanest/e8c9546dde2f610f51d8 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
parflatten.hs
parFlatten :: [[a]] -> [a]
parFlatten = parFlattenLoop []
where
parFlattenLoop [] [] = []
parFlattenLoop tmp [] = parFlattenLoop [] (reverse tmp)
parFlattenLoop tmp ([]:xss) = parFlattenLoop tmp xss
parFlattenLoop tmp ((x:xs):xss) = x : parFlattenLoop (xs:tmp) xss
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment