tarquin-the-brave/findroots.hs

Created May 12, 2020 12:41

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

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/tarquin-the-brave/96a4ee0cfedbb41bd548ed89989367e2.js"></script>
Save tarquin-the-brave/96a4ee0cfedbb41bd548ed89989367e2 to your computer and use it in GitHub Desktop.

Download ZIP

example from https://tarquin-the-brave.github.io/blog/posts/re-learning-haskell/

Raw

findroots.hs

	-- Which bodies do not orbit anything?
	roots :: Eq a => [(a,a)] -> [a]
	roots orbits = [x \| (x, y) <- orbits, notElem x . fmap snd $ orbits]

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