From d8c7095710010a7e0e16096638a6f98106f132f3 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@telenet.be>
Date: Tue, 11 Oct 2022 10:26:46 +0200
Subject: [PATCH] Find card functie toegevoegd

Mogelijks refactoren om lambda weg te werken
---
 src/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 86c403d..726c70b 100644
--- a/src/Main.hs
+++ b/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