alea/Alea/Random.hs

module Alea.Random where

import Crypto.Threefish.Random

randWords :: Int -> Int -> IO [Int]
randWords n k = newSkeinGen >>= \x -> return . take k $ randomRs (0, n) x
Move module location 2014-10-14 18:09:58 +02:00			`module Alea.Random where`
Initial commit Add new files 2014-10-13 21:26:55 +02:00
Use Skein-256 as PRNG 2014-10-20 16:54:23 +02:00			`import Crypto.Threefish.Random`
Initial commit Add new files 2014-10-13 21:26:55 +02:00
			`randWords :: Int -> Int -> IO [Int]`
Use Skein-256 as PRNG 2014-10-20 16:54:23 +02:00			`randWords n k = newSkeinGen >>= \x -> return . take k $ randomRs (0, n) x`