random-fu-0.2.7.4: src/Data/Random/Vector.hs

module Data.Random.Vector(randomElement) where

import           Data.Random.RVar
import           Data.Random.Distribution.Uniform
import qualified Data.Vector  as V

-- | Take a random element of a vector.
randomElement :: V.Vector a -> RVar a
randomElement wrds = (wrds V.!) <$> uniform 0 (V.length wrds - 1)