44 lines
1.4 KiB
Haskell
44 lines
1.4 KiB
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
module Hanafuda.KoiKoi.Round (
|
|
deal
|
|
, next
|
|
) where
|
|
|
|
import Hanafuda (Flower(Paulownia), cards, shuffle, packOfCards)
|
|
import Hanafuda.KoiKoi.Yaku (sumYakus)
|
|
import Hanafuda.KoiKoi.Game (Game, Mode(..), On(..), Step(..), end, stop)
|
|
import qualified Hanafuda.Player as Player (deal, get, next, score)
|
|
import Data.Map ((!), insert)
|
|
import Control.Monad.State (replicateM, runState, state)
|
|
|
|
deal :: Ord player => On player -> IO (On player)
|
|
deal on@(On_ {players}) = do
|
|
([hand1, hand2, river], deck) <- fmap (runState (replicateM 3 take8)) $ shuffle cards
|
|
return on {
|
|
players = Player.deal players [hand1, hand2]
|
|
, deck
|
|
, river = packOfCards river
|
|
}
|
|
where
|
|
take8 = state $ splitAt 8
|
|
|
|
next :: Ord player => On player -> IO (Game player)
|
|
next on@(On_ {mode, scores, month, players, oyake, winning}) =
|
|
case mode of
|
|
FirstAt n | n <= newScore -> end scored
|
|
FirstAt _ -> continue
|
|
WholeYear | month == Paulownia -> end scored
|
|
WholeYear -> continue
|
|
where
|
|
playing = Player.next players oyake
|
|
newScore = (scores ! winning) + Player.score sumYakus (Player.get winning players)
|
|
scored = on {scores = insert winning newScore scores}
|
|
continue =
|
|
deal (scored {
|
|
month = succ month
|
|
, playing
|
|
, winning = playing
|
|
, oyake = playing
|
|
, step = ToPlay
|
|
}) >>= stop
|