alea/Alea/Random.hs

module Alea.Random where

import Crypto.Threefish.Random

randWords :: Int -> Int -> IO [Int]
randWords n k = newSkeinGen >>= return . take k . randomRs (0, n-1)
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]`
Refactor randWords function 2014-10-20 17:32:36 +02:00			`randWords n k = newSkeinGen >>= return . take k . randomRs (0, n-1)`