Guest User

Untitled

a guest
Oct 22nd, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. -- Joins a list of lists with a separator.
  2. myIntersperse :: a -> [[a]] -> [a]
  3. myIntersperse _ [] = []
  4. myIntersperse _ [x] = [x]
  5. myIntersperse separator (x:xs) = x ++ separator ++ myIntersperse separator xs
Add Comment
Please, Sign In to add comment