ic distribution.
--
-- Distribution of the number of failures before getting one success.
-- See @Statistics.Distribution.Geometric@
-- 
-- > λ> mwc $ listOf 10 (geometric0 0.8)
-- > [0,0,0,0,0,1,1,0,0,0]
geometric0 :: PrimMonad m
           => Double
           -> RandT m Int
geometric0 = discrete . G.geometric0

-- | Studen
geometric0 :: PrimMonad m
           => Double
           -> RandT m Int
geometric0 = discrete . G.geometric0
geometric0 = discrete . G.geometric0