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
|
||
|
}
|