rnhmjoj/alea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Refactor randWords function

Browse Source
This commit is contained in:
Rnhmjoj 2014-10-20 17:32:36 +02:00
parent ce62dd418c
commit 3d375fae96
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Alea/Random.hs
View File

@ -3,4 +3,4 @@ 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
randWords n k = newSkeinGen >>= return . take k . randomRs (0, n-1)