random-fu 0.2.5.0 → 0.2.6.0

raw patch · 3 files changed

+14/−1 lines, 3 files

Files

random-fu.cabal +2/−1
src/Data/Random/Distribution/Uniform.hs +2/−0
src/Data/Random/Vector.hs +10/−0

random-fu.cabal view

@@ -1,5 +1,5 @@ name:                   random-fu-version:                0.2.5.0+version:                0.2.6.0 stability:              provisional  cabal-version:          >= 1.6@@ -88,6 +88,7 @@                         Data.Random.List                         Data.Random.RVar                         Data.Random.Sample+                        Data.Random.Vector   if flag(base4_2)     build-depends:      base >= 4.2 && <5   else

src/Data/Random/Distribution/Uniform.hs view

@@ -22,6 +22,7 @@     , floatUniform     , doubleUniform     , fixedUniform+    , enumUniform          , boundedStdUniform     , boundedEnumStdUniform@@ -33,6 +34,7 @@     , boundedStdUniformCDF     , realStdUniformCDF     , realUniformCDF+    , enumUniformCDF     ) where  import Data.Random.Internal.TH

+ src/Data/Random/Vector.hs view

@@ -0,0 +1,10 @@+module Data.Random.Vector(randomElement) where++import           Data.Random.RVar+import           Data.Random.Distribution.Uniform+import qualified Data.Vector  as V+import           Control.Applicative++-- | Take a random element of a vector.+randomElement :: V.Vector a -> RVar a+randomElement words = (words V.!) <$> uniform 0 (V.length words - 1)