You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
58 lines
1.5 KiB
58 lines
1.5 KiB
module Datatypes where
|
|
|
|
import Data.Hashable (Hashable(..))
|
|
import qualified Data.List as List
|
|
import Data.Set (Set)
|
|
import qualified Data.Set as Set
|
|
|
|
type Cell = (Int, Int)
|
|
|
|
data Board = Board {
|
|
boardWidth :: Int,
|
|
boardHeight :: Int,
|
|
boardFilled :: Set Cell
|
|
}
|
|
deriving Show
|
|
|
|
data Unit = Unit {
|
|
unitMembers :: Set Cell,
|
|
unitPivot :: Cell
|
|
}
|
|
deriving Show
|
|
|
|
data Command = MoveW
|
|
| MoveE
|
|
| MoveSW
|
|
| MoveSE
|
|
| RotateClockwise
|
|
| RotateCounterclockwise
|
|
deriving (Show,Eq)
|
|
|
|
cmdToString :: [Command] -> String
|
|
cmdToString (MoveW:cs) = 'p' : cmdToString cs
|
|
cmdToString (MoveE:cs) = 'b' : cmdToString cs
|
|
cmdToString (MoveSW:cs) = 'a' : cmdToString cs
|
|
cmdToString (MoveSE:cs) = 'l' : cmdToString cs
|
|
cmdToString (RotateClockwise:cs) = 'd' : cmdToString cs
|
|
cmdToString (RotateCounterclockwise:cs) = 'k' : cmdToString cs
|
|
cmdToString [] = []
|
|
|
|
data Game = Game {
|
|
gameBoard :: Board,
|
|
gameUnits :: [Unit],
|
|
oldPositions :: Set Int,
|
|
oldLines :: Int,
|
|
points :: Int
|
|
}
|
|
deriving Show
|
|
|
|
data Notes = OK
|
|
| Ended
|
|
| Collision
|
|
| CollisionWithRowElision
|
|
| ErrorZero
|
|
deriving (Show,Eq)
|
|
|
|
instance Hashable Unit where
|
|
hashWithSalt salt (Unit members pivot) =
|
|
hashWithSalt salt (List.sort (Set.toList members), pivot)
|