1
Fork 0

showCard & hideCard toegevoegd

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

View file

@ -141,19 +141,20 @@ move board (dw, dh)
-- wanneer de posities overeenkomen.
changeCard :: Coordinate -> CardStatus -> Card -> Card
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
-- kaarten. Deze functie geeft een lijst terug waar de status
-- van de kaart is aangepast naar `Shown`.
showCard :: Coordinate -> [Card] -> [Card]
showCard target = undefined
showCard target = map (changeCard target Shown)
-- Verander de status van een enkele kaart in een reeks van
-- kaarten. Deze functie geeft een lijst terug waar de status
-- van de kaart is aangepast naar `Hidden`.
hideCard :: Coordinate -> [Card] -> [Card]
hideCard target = undefined
hideCard target = map (changeCard target Hidden)
-- Draai de kaart op een gegeven positie op het bord om
-- als deze nog niet eerder werd omgedraaid.