Skip to content

Instantly share code, notes, and snippets.

@thomwiggers

thomwiggers/connect4.hs

Created December 16, 2012 14:08
Show Gist options
  • Save thomwiggers/4307616 to your computer and use it in GitHub Desktop.
Save thomwiggers/4307616 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
connect4.hs
vraagZet :: Bord -> IO Int
vraagZet bord = do
putStrLn "Waar wilt u een steen plaatsen?"
putStrLn (showBord bord)
putStr "Op rij: "
hFlush stdout
x <- getLine
return $ read x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment