christianwish/infinite.hs

Created July 20, 2018 06:27

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

Download ZIP

timeout haskell

Raw

infinite.hs

	import System.IO
	import Control.Concurrent (threadDelay)

	a i = do
	threadDelay 1000000
	print $ show i
	a (i + 1)

	main = do
	a 0

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