7 lines
168 B
Haskell
7 lines
168 B
Haskell
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
|