generateColors functie toegevoegd

met map met functiecompositie

src/Main.hs

@@ -91,13 +91,13 @@ down  = (  0 ,  1 )
 
 -- Controleer of twee kaarten dezelfde kleur hebben.
 match :: Card -> Card -> Bool
-match (_, color1, _) (_, color2, _) = color1 == color2
+match (_, c1, _) (_, c2, _) = c1 == c2
 
 -- Zoek een kaart binnen een lijst van kaarten op basis van een positie.
 -- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt
 -- een error teruggegeven.
 find :: Coordinate -> [Card] -> Card
-find c0 cards = head $ filter (\(c,_,_) -> c == c0) cards
+find c0 cards = head $ filter (\(c1,_,_) -> c1 == c0) cards
 -- TODO Kan dit properder geschreven worden?
 
 -- Geef een permutatie van een gegeven lijst terug.
@@ -109,7 +109,7 @@ shuffleList l = shuffle' l (length l) (mkStdGen seed)
 -- Genereer een lijst met n verschillende kleuren.
 -- Hint: Je kan gebruikmaken van de generateColor-functie.
 generateColors :: Int -> [Color]
-generateColors n = undefined
+generateColors n = map (generateColor . fromIntegral . (360 `div` n *)) [1..n]
 
 -- Genereer een lijst van n kaarten (n/2 kleurenparen).
 generateShuffledCards :: Int -> [Card]
@@ -128,8 +128,7 @@ canMove coord direction = undefined
 move :: Board -> Direction -> Board
 move board direction = undefined
 
--- Verander de status van een kaart op een gegeven positie 
--- wanneer de posities overeenkomen.
+-- Verander de status van een kaart op een gegeven positie -- wanneer de posities overeenkomen.
 changeCard :: Coordinate -> CardStatus -> Card -> Card
 changeCard c s card = undefined