tdpeuter/2022FuncProg-project2-patience
tdpeuter/2022FuncProg-project2-patience
Archived
1
Fork 0
Code Activity

revert bb16551cb8

Browse source 
revert #9 Polishing shuffle
This commit is contained in:
Tibo De Peuter 2022-11-14 19:24:04 +01:00
parent bb16551cb8
commit b7f0b46892
1 changed files with 3 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/Shuffle.hs
View file

@ -1,18 +1,12 @@
module Shuffle module Shuffle (
( shuffle shuffle
) where ) where
import Data.List import Data.List
import System.Random import System.Random
----------------------------- Constants ------------------------------
-- The seed used to generate random numbers.
seed :: Int
seed = 20 seed = 20
----------------------------------------------------------------------
-- Shuffle a list of values. -- Shuffle a list of values.
shuffle :: [a] -> [a] shuffle :: [a] -> [a]
shuffle l = map (l !!) $ generateIndices $ length l shuffle l = map (l !!) $ generateIndices $ length l
@ -25,5 +19,6 @@ generateIndices size = take size uniqueList
uniqueList = nub randomList uniqueList = nub randomList
-- Generate a random generator -- Generate a random generator
-- TODO Écht random maken?
randomGen :: StdGen randomGen :: StdGen
randomGen = mkStdGen seed randomGen = mkStdGen seed