module Pack where

import qualified Board
import Random

type ID     = Int
type Weight = Integer

data T  = Mk 
  { uid     :: ID
  , dest    :: Board.Pos
  , weight  :: Weight
  } deriving (Read,Show)

instance Eq Pack.T where
  x == y  = uid x == uid y

-- instance Show T where
--  show p = show (uid p, dest p, weight p)


--init = zipWith3 Mk [1..20] (repeat (10,4)) [30,29..]