 | Sample from a discrete distribution from the 'statistics' package
-- 
-- > λ> import qualified Statistics.Distribution.Normal as Normal
-- > λ> mwc $ discrete (Geo.geometric 0.6)
-- > 2
--
-- This is equivalent to using 'geometric' from this module.
discrete :: (DiscreteGen d, PrimMonad m)
          => d -- ^ the discrete distribution to sample from
          -> RandT m Int
discrete d = RandT $ genDiscreteVar d

--
discrete :: (DiscreteGen d, PrimMonad m)
          => d -- ^ the discrete distribution to sample from
          -> RandT m Int
discrete d = RandT $ genDiscreteVar d
discrete d = RandT $ genDiscreteVar d