Safe Haskell | Safe |
---|---|
Language | Haskell2010 |
- aiSelectDiscards :: Hand -> DiscardList
- nOfKindDiscards :: Hand -> DiscardList
Documentation
aiSelectDiscards :: Hand -> DiscardList Source
Sutefuda by AI
>>>
let Just straightFlush = toHand $ take 5 $ allCards
>>>
aiSelectDiscards straightFlush
[]
>>>
let Just fourCard = toHand $ take 5 $ (filter ((==10) . cardNumber) allCards) ++ allCards
>>>
aiSelectDiscards fourCard
[H2_]
>>>
let Just buta = toHand $ take 5 $ (take 2 allCards) ++ (take 2 $ drop (13+5) allCards) ++ (drop (13*2+9) allCards)
>>>
aiSelectDiscards buta
[H2_,H3_,D7_,D8_,CJ_]
nOfKindDiscards :: Hand -> DiscardList Source
Sutefuda = Hand - allYaku
>>>
let Just (x) = toHand $ take 5 $ (filter (\x -> (cardNumber x == 10)) $ allCards) ++ allCards
>>>
fromHand x
[H2_,H10,D10,C10,S10]>>>
nOfKindDiscards x
[H2_]