備忘録 [Haskell]StateTでカード分配

StateTの勉強のため、５２枚のカードを分配するコードを書いてみました。 import Control.Monad.State import Random import List main = do (a, cs1) <- runStateT (pickCards 13) [1..52] (b, cs2) <- runStateT (pickCards 13) cs1 (c, cs3) <- runStateT (pickCards 13) cs2 (d, cs4) <- runStateT (pickCards 13) cs3 -- 分配したカード print a print b print c print d -- 残ったカード print cs4 pickCard :: StateT [Int] IO Int pickCard = do c <- liftIO $ randomRI