module Data.Puzzles.Elements where
import Data.Puzzles.GridShape (Coord, Edge)
type Clue a = Maybe a
data MasyuPearl = MWhite | MBlack
deriving (Eq, Show)
type MasyuClue = Clue MasyuPearl
type IntClue = Clue Int
data CompassC = CC (Maybe Int) (Maybe Int) (Maybe Int) (Maybe Int)
deriving Show
type CompassClue = Clue CompassC
data Tightfit a = Single a | UR a a | DR a a
instance Show a => Show (Tightfit a) where
show c = "(" ++ show' c ++ ")"
where show' (Single x) = show x
show' (UR x y) = show x ++ "/" ++ show y
show' (DR x y) = show x ++ "\\" ++ show y
data MarkedWord = MW { mwstart :: Coord, mwend :: Coord }
type Loop = [Edge]
type Thermometer = [Coord]
data SlalomDiag = SlalomForward | SlalomBackward
deriving Show
data Shade = Shade Bool Bool
deriving Show
data KropkiDot = KNone | KBlack | KWhite
deriving Show
newtype TapaClue = TapaClue [Int]
deriving Show
newtype PrimeDiag = PrimeDiag (Bool, Bool)
data Black = Black
data Crossing = Crossing
type BahnhofClue = Either Int Crossing