Sgeo/gist:4717537

Created February 5, 2013 20:52

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

Download ZIP

Haskell code to emulate in Scala and Clojure. Idea for the functions taken from http://www.scala-lang.org/api/current/index.html#scala.util.control.TailCalls$

Raw

gistfile1.hs

	listEven :: [a] -> Bool
	listEven [] = True
	listEven (_:xs) = listOdd xs

	listOdd :: [a] -> Bool
	listOdd [] = False
	listOdd (_:xs) = listEven xs

Author

Sgeo commented Feb 5, 2013

Confirmed working with http://ideone.com/3AKuvK

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