Guest User

Untitled

a guest
Jan 23rd, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. seqList` :: [s -> (a,s)] -> s -> ([a],s)
  2. seqList` [] = return []
  3. seqList` [x:xs] = x `bind` \a -> seqList` xs `bind` \b -> return [a:b]
Add Comment
Please, Sign In to add comment