guessinggame1.hs

module Main where

main :: IO ()
main = do
  guessI <- getLine
  if (read guessI /= 0) then
    oneGame True (read guessI) (1, 10)
  else
    return ()


oneGame :: Bool -> Int -> (Int, Int) -> IO ()
oneGame isHon g (a, b)= do
  guessCmt <- getLine
  if (guessCmt == "too high")
     then if (g == a)
              then getGuess False (a, g)
              else getGuess isHon (a,g-1)
     else if (guessCmt == "too low")
              then if (g==b)
                      then getGuess False (g, b)
                      else getGuess isHon (g+1, b)
              else if (guessCmt == "right on")
                      then if (g `elem` [a..b] && isHon)
                              then putStrLn "Stan may be honest" >> main
                              else putStrLn "Stan is dishonest" >> main
                      else main

getGuess :: Bool -> (Int, Int) -> IO ()
getGuess isHon tup = do
  guessI <- getLine
  if (read guessI /= 0) then
    oneGame isHon (read guessI) tup
  else
    return ()