Number guesser

guessMaker.hs

module Main where

makeAGuess :: Int -> Int -> Int
makeAGuess i j = (i + j) `div` 2


guess :: Int -> Int -> IO ()
guess i j = do
  let x = makeAGuess i j
  putStrLn (show x)
  response <- getLine
  case response of 
    "Low" -> guess x j
    "High" -> guess i x
    otherwise -> return ()
  
main :: IO ()
main = do
  getLine
  guess 1 100