niorad/gofunction.hs

Created January 23, 2016 18:59

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/niorad/45187d9eb76c585e573e.js"></script>
Save niorad/45187d9eb76c585e573e to your computer and use it in GitHub Desktop.

Download ZIP

Haskell Go-Function Example

Raw

gofunction.hs

	divideBy x y = go x y 0
	where go a b count
	\| a < b = (count, a)
	\| otherwise = go (a - b) b (count + 1)

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