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

flipCard functie toegevoegd

Browse source
This commit is contained in:
Tibo De Peuter 2022-10-15 00:02:12 +02:00
parent e505411e19
commit 1f236ede83
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/Main.hs
View file

@ -159,7 +159,15 @@ hideCard target = map (changeCard target Hidden)
-- Draai de kaart op een gegeven positie op het bord om -- Draai de kaart op een gegeven positie op het bord om
-- als deze nog niet eerder werd omgedraaid. -- als deze nog niet eerder werd omgedraaid.
flipCard :: Coordinate -> Board -> Board flipCard :: Coordinate -> Board -> Board
flipCard target board = undefined -- flipCard target board = board{turned (1,1),generateColor 1.1,Hidden):[]}
flipCard target board
-- TODO Maak deze lamdba mooier.
| target `elem` (map (\(a,_,_) -> a) (turned board)) = board -- Controleer al omgedraaid?
| otherwise = board {
cards = showCard target $ cards board -- Toon de kaart in de lijst van kaarten.
, turned = flipped ++ turned board -- Voeg toe aan 'omgedraaide kaarten'.
}
where flipped = filter (\(a,_,_) -> a == target) $ cards board
-- Reset de laatste omgedraaide kaarten terug naar de `Hidden` status. -- Reset de laatste omgedraaide kaarten terug naar de `Hidden` status.
resetTurned :: Board -> Board resetTurned :: Board -> Board