tdpeuter/2022FuncProg-project1-memory
tdpeuter/2022FuncProg-project1-memory
Archived
1
Fork 0
Code Pull requests Activity

Find card functie toegevoegd

Browse source 
Mogelijks refactoren om lambda weg te werken
This commit is contained in:
Tibo De Peuter 2022-10-11 10:26:46 +02:00
parent 7abf1eea2a
commit d8c7095710
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Main.hs
View file

@ -97,7 +97,8 @@ match (_, color1, _) (_, color2, _) = color1 == color2
-- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt -- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt
-- een error teruggegeven. -- een error teruggegeven.
find :: Coordinate -> [Card] -> Card 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. -- Geef een permutatie van een gegeven lijst terug.
-- Hint: Kijk zeker eens naar de System.Random en -- Hint: Kijk zeker eens naar de System.Random en