rgrinberg/mapm_example.hs

Created January 12, 2017 17:25

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/rgrinberg/8bc6906945ef75b1a51e556e099c3f9e.js"></script>
Save rgrinberg/8bc6906945ef75b1a51e556e099c3f9e to your computer and use it in GitHub Desktop.

Download ZIP

Raw

mapm_example.hs


	mapM' :: Monad m => (a -> b m) -> [a] -> m [b]
	mapM' _ [] = return []
	mapM' (x : xs) f = do
	y <- f x
	ys <- mapM' xs f
	return (y : ys)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment