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

Fixed kunnen selecteren van reeds omgedraaide kaart

Browse source
This commit is contained in:
Tibo De Peuter 2022-10-16 00:10:08 +02:00
parent 26f09bf1e8
commit e3fbb06443
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

@ -161,10 +161,10 @@ 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.
-- TODO Hidden/Shown controleren
flipCard :: Coordinate -> Board -> Board flipCard :: Coordinate -> Board -> Board
flipCard target board flipCard target board
| target `elem` (map firstOfThree (turned board)) = board -- Controleer al omgedraaid? | target `elem` (map firstOfThree (turned board)) = board -- Al in selectie?
| any (\(c,_,s) -> c == target && s == Shown) (cards board) = board -- Al omgedraaid?
| otherwise = board { | otherwise = board {
cards = newCards -- Toon de kaart in de lijst van kaarten. cards = newCards -- Toon de kaart in de lijst van kaarten.
, turned = flipped ++ turned board -- Voeg toe aan 'omgedraaide kaarten'. , turned = flipped ++ turned board -- Voeg toe aan 'omgedraaide kaarten'.