p7/old/State.hs

module State where

import System.Random
import Packs

type State = (Pool, BoxQueue, StdGen)

data InRot = Ir DataPack deriving (Show, Eq)

data OutRot = Or DataPack Integer
instance Eq OutRot where
   (Or d1 _) == (Or d2 _) = d1 == d2

data BoxQueue = Bq [Maybe BigBox]

type Pool = ([InRot], [OutRot])

createInRot :: [DataPack] -> [InRot]
createInRot x = map (\n -> Ir n) x

createOutRot :: [DataPack] -> [OutRot]
createOutRot x = map (\n -> Or n 0) x