Create a gist now

Instantly share code, notes, and snippets.

Embed
What would you like to do?
concat'cps [] k = k []
concat'cps ([]:_) k = []
concat'cps (xs:xss) k = concat'cps xss $ \xss' -> k $ xs ++ xss'
main = print $ concat'cps [[1,2],[3,4],[],[5,6]] id
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment