Skip to content

Instantly share code, notes, and snippets.

@dripolles

dripolles/braid.hs

Created April 7, 2014 09:36
Show Gist options
  • Save dripolles/10017327 to your computer and use it in GitHub Desktop.
Save dripolles/10017327 to your computer and use it in GitHub Desktop.
Download ZIP
1HaskelADay 2014/04/07
Raw
braid.hs
-- http://lpaste.net/revision/7041447080467890176
import Control.Applicative
braid :: [a] -> [a] -> [a]
braid xs ys = zip xs ys >>= (:) <$> fst <*> return . snd
main = do
print $ braid [0,2] [1,3 ..]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment