diff --git a/src/Main.hs b/src/Main.hs index 726c70b..a796408 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -104,7 +104,7 @@ find c0 cards = head $ filter (\(c,_,_) -> c == c0) cards -- Hint: Kijk zeker eens naar de System.Random en -- System.Random.Shuffle bibliotheken. shuffleList :: [a] -> [a] -shuffleList l = undefined +shuffleList l = shuffle' l (length l) (mkStdGen seed) -- Genereer een lijst met n verschillende kleuren. -- Hint: Je kan gebruikmaken van de generateColor-functie.