From 5ba7b73fe305aa3af710a1668cc348ff3f69b127 Mon Sep 17 00:00:00 2001 From: Tibo De Peuter Date: Tue, 11 Oct 2022 10:47:23 +0200 Subject: [PATCH] shuffleList functie toegevoegd Shufflelist door gebruik van `shuffle'` en `length l`. Mogelijks op een andere manier proberen, ooit --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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.