Skip to content

Instantly share code, notes, and snippets.

@christianwish

christianwish/infinite.hs

Created July 20, 2018 06:27
Show Gist options
  • Save christianwish/98d6ed4b1e84dc726b37e20652502043 to your computer and use it in GitHub Desktop.
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