AKST/fib.hs

Created September 22, 2013 09:14

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

Download ZIP

A tail recrusive implementation of the fibonacci squence

Raw

fib.hs

	fib :: (Eq a, Num a, Num b) => a -> b
	fib n = impl n 1 0
	where
	impl 0 _ b = b
	impl n a b = impl (n - 1) (a + b) a

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