showCard & hideCard toegevoegd
Bleek minder moeilijk dan initieel gedacht, probeer het niet te ver te zoeken
This commit is contained in:
parent
84e3bf1a82
commit
e505411e19
1 changed files with 4 additions and 3 deletions
|
@ -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.
|
||||
|
|
Reference in a new issue