module SetGame where

import SetGame.PlayGame
import System.Random


runGame :: IO [CardSet]
runGame = do
  generator <- getStdGen

  let initialState              = initializeGame generator
      (GameState _ _ finalSets) = playRounds initialState

  return finalSets

module SetGame where

import SetGame.PlayGame
import System.Random


runGame :: IO [CardSet]
runGame = do
  generator <- getStdGen

  let initialState              = initializeGame generator
      (GameState _ _ finalSets) = playRounds initialState

  let (_, newGenerator) = split generator

  setStdGen newGenerator

  return finalSets

Split StdGen between rounds of rungame so we don't get locked with same results
Split StdGen between rounds of rungame so we don't get locked with same results
