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

restTurned functie toegevoegd

Browse source 
Recursieve functie die alle kaarten 'omgedraaide' kaarten terugdraait.
This commit is contained in:
Tibo De Peuter 2022-10-15 17:15:28 +02:00
parent 20673407ec
commit ac3bdede4e
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

@ -159,9 +159,7 @@ 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 = board{turned (1,1),generateColor 1.1,Hidden):[]}
flipCard target board flipCard target board
-- TODO Maak deze lamdba mooier.
| target `elem` (map firstOfThree (turned board)) = board -- Controleer al omgedraaid? | target `elem` (map firstOfThree (turned board)) = board -- Controleer 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.
@ -174,7 +172,7 @@ flipCard target board
resetTurned :: Board -> Board resetTurned :: Board -> Board
resetTurned board resetTurned board
| turned board == [] = board | turned board == [] = board
| otherwise = board { | otherwise = resetTurned board {
cards = hideCard target (cards board) cards = hideCard target (cards board)
, turned = tail $ turned board , turned = tail $ turned board
} }