From e505411e1987900bfe15fda9bc6c8f70a7b7dea9 Mon Sep 17 00:00:00 2001 From: Tibo De Peuter Date: Fri, 14 Oct 2022 23:12:18 +0200 Subject: [PATCH] showCard & hideCard toegevoegd Bleek minder moeilijk dan initieel gedacht, probeer het niet te ver te zoeken --- src/Main.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 8ffaa2e..9df3159 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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.