16 lines
226 B
Haskell
16 lines
226 B
Haskell
module KoiKoi where
|
|
|
|
import CCard
|
|
|
|
data Player = Player {
|
|
hand :: Pack
|
|
, captured :: Pack
|
|
}
|
|
|
|
data State = State {
|
|
players :: (Player, Player)
|
|
, river :: Pack
|
|
, deck :: [ Card ]
|
|
, turn :: Bool
|
|
}
|