diff options
Diffstat (limited to 'System')
| -rw-r--r-- | System/Random/Shuffle.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/System/Random/Shuffle.hs b/System/Random/Shuffle.hs index 1df376f..4cd36eb 100644 --- a/System/Random/Shuffle.hs +++ b/System/Random/Shuffle.hs @@ -94,16 +94,16 @@ shuffle elements = shuffleTree (buildTree elements) -- | Given a sequence (e1,...en) to shuffle, its length, and a random -- generator, compute the corresponding permutation of the input -- sequence. -shuffle' :: RandomGen gen => [a] -> Int -> gen -> [a] +shuffle' :: (RandomGen gen) => [a] -> Int -> gen -> [a] shuffle' elements len = shuffle elements <. rseq len where -- The sequence (r1,...r[n-1]) of numbers such that r[i] is an -- independent sample from a uniform random distribution -- [0..n-i] - rseq :: RandomGen gen => Int -> gen -> [Int] + rseq :: (RandomGen gen) => Int -> gen -> [Int] rseq n = map fst <. rseq' (n - 1) where - rseq' :: RandomGen gen => Int -> gen -> [(Int, gen)] + rseq' :: (RandomGen gen) => Int -> gen -> [(Int, gen)] rseq' 0 _ = [] rseq' i gen = (j, gen) : rseq' (i - 1) gen' where |