haskell guess

guess.hs

askAndCompare :: Int -> Int -> IO () 
askAndCompare target level = do
                         putStr "Input your guess:"
                         hFlush stdout
                         input <- getLine
                         case compare (read input) target of
                           LT -> do putStrLn "Too small! Try again."
                                    askAndCompare target (level + 1)
                           GT -> do putStrLn "Too Big! Try again."
                                    askAndCompare target (level + 1)
                           EQ -> putStrLn $ "Bingo! You take " ++ (show level) ++ " times!"

main = do
    target <- randomRIO(1, 100)
    askAndCompare target 1