9 lines
232 B
Haskell
9 lines
232 B
Haskell
|
module State where
|
||
|
|
|
||
|
|
type Group = [MainCharacter]
|
||
|
|
type NeoTokyo = [Group]
|
||
|
|
type Downed = [MainCharacter]
|
||
|
|
type BoardState = (NeoTokyo, Downed)
|
||
|
|
data MainCharacter = Asuka | Shinji | Rei | Misato | Ritsuko | Gendo
|
||
|
|
deriving (Show, Eq)
|