Gbury/flat_map_rec.ml

Last active February 4, 2019 15:43

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/Gbury/5dfc1699f032aead4750238db7c823a6.js"></script>
Save Gbury/5dfc1699f032aead4750238db7c823a6 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

flat_map_rec.ml

	let rec flat_map_rec f s =
	Seq.flat_map (fun x ->
	match f x with
	\| `Ok -> Seq.return x
	\| `Seq s' -> flat_map_rec f s'
	) s

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