import Data.Map (Map)
import qualified Data.Map as Map

type Number = Int
type Player = String

data GuessingGame = GuessingGame {
    secretNumber :: Number,
    guesses :: Map Number Player
}

startGame :: Number -> Player -> GuessingGame
startGame secretNumber player = GuessingGame {
    secretNumber = secretNumber,
    guesses = Map.empty
}

playGame :: GuessingGame -> Either String GuessingGame
playGame game = do
    putStrLn $ "Secret number: " ++ show (secretNumber game)
    putStrLn "Guess a number between 1 and " ++ show (secretNumber game)
    guess <- getLine
    case guess of
        "1" -> do
            putStrLn "Correct!"
            Right game
        _ -> do
            putStrLn "Incorrect!"
            Left "Invalid guess"

    where
    Right game = do
        guesses <- getGuesses
        let newGame = game { guesses = guesses }
        playGame newGame

    Left message = do
        putStrLn message
        playGame (startGame (secretNumber game) player)