-- | A 'Player' strategy that choose randomly one of the available action.
rand :: (ListableActions b, MonadRandom m)
     => Strategy m b
rand = uniform . fmap fst . F.toList . listActions
rand :: (ListableActions b, MonadRandom m)
     => Strategy m b
rand = uniform . fmap fst . F.toList . listActions
rand = uniform . fmap fst . F.toList . listActions