Find card functie toegevoegd

Mogelijks refactoren om lambda weg te werken

src/Main.hs

@@ -97,7 +97,8 @@ match (_, color1, _) (_, color2, _) = color1 == color2
 -- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt
 -- een error teruggegeven.
 find :: Coordinate -> [Card] -> Card
-find target cards = undefined
+find c0 cards = head $ filter (\(c,_,_) -> c == c0) cards
+-- TODO Kan dit properder geschreven worden?
 
 -- Geef een permutatie van een gegeven lijst terug.
 -- Hint: Kijk zeker eens naar de System.Random en