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

showCard & hideCard toegevoegd

Browse source 
Bleek minder moeilijk dan initieel gedacht, probeer het niet te ver te
zoeken
This commit is contained in:
Tibo De Peuter 2022-10-14 23:12:18 +02:00
parent 84e3bf1a82
commit e505411e19
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Main.hs
View file

@ -141,19 +141,20 @@ move board (dw, dh)
-- wanneer de posities overeenkomen. -- wanneer de posities overeenkomen.
changeCard :: Coordinate -> CardStatus -> Card -> Card changeCard :: Coordinate -> CardStatus -> Card -> Card
changeCard c0 s0 (c1, color, s1) changeCard c0 s0 (c1, color, s1)
| c0 == c1 = (c0, color, s0) | c0 == c1 = (c0, color, s0)
| otherwise = (c1, color, s1)
-- Verander de status van een enkele kaart in een reeks van -- Verander de status van een enkele kaart in een reeks van
-- kaarten. Deze functie geeft een lijst terug waar de status -- kaarten. Deze functie geeft een lijst terug waar de status
-- van de kaart is aangepast naar `Shown`. -- van de kaart is aangepast naar `Shown`.
showCard :: Coordinate -> [Card] -> [Card] showCard :: Coordinate -> [Card] -> [Card]
showCard target = undefined showCard target = map (changeCard target Shown)
-- Verander de status van een enkele kaart in een reeks van -- Verander de status van een enkele kaart in een reeks van
-- kaarten. Deze functie geeft een lijst terug waar de status -- kaarten. Deze functie geeft een lijst terug waar de status
-- van de kaart is aangepast naar `Hidden`. -- van de kaart is aangepast naar `Hidden`.
hideCard :: Coordinate -> [Card] -> [Card] hideCard :: Coordinate -> [Card] -> [Card]
hideCard target = undefined 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.