ric distribution.
-- 
-- Distribution of the number of trials needed to get one success.
-- See @Statistics.Distribution.Geometric@
--
-- > λ> mwc $ listOf 10 (geometric 0.8)
-- > [2,1,1,1,1,1,1,2,1,5]
geometric :: PrimMonad m
          => Double -- ^ success rate
          -> RandT m Int
geometric = discrete . G.geometric

-- | Geome
geometric :: PrimMonad m
          => Double -- ^ success rate
          -> RandT m Int
geometric = discrete . G.geometric
geometric = discrete . G.geometric