jliuhtonen/print100.hs

Created April 10, 2015 09:10

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

Download ZIP

100 to 1

Raw

print100.hs

	print100' i
	\| i >= 100 = []
	\| otherwise = (100 - i) : print100' (i + 1)

	print100 = mapM_ (putStrLn . show) $ print100' 0

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