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

generateColors functie toegevoegd

Browse source 
met map met functiecompositie
This commit is contained in:
Tibo De Peuter 2022-10-11 11:39:00 +02:00
parent 5ba7b73fe3
commit 91a1efaa66
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Main.hs
View file

@ -91,13 +91,13 @@ down = ( 0 , 1 )
-- Controleer of twee kaarten dezelfde kleur hebben. -- Controleer of twee kaarten dezelfde kleur hebben.
match :: Card -> Card -> Bool match :: Card -> Card -> Bool
match (_, color1, _) (_, color2, _) = color1 == color2 match (_, c1, _) (_, c2, _) = c1 == c2
-- Zoek een kaart binnen een lijst van kaarten op basis van een positie. -- Zoek een kaart binnen een lijst van kaarten op basis van een positie.
-- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt -- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt
-- een error teruggegeven. -- een error teruggegeven.
find :: Coordinate -> [Card] -> Card find :: Coordinate -> [Card] -> Card
find c0 cards = head $ filter (\(c,_,_) -> c == c0) cards find c0 cards = head $ filter (\(c1,_,_) -> c1 == c0) cards
-- TODO Kan dit properder geschreven worden? -- TODO Kan dit properder geschreven worden?
-- Geef een permutatie van een gegeven lijst terug. -- Geef een permutatie van een gegeven lijst terug.
@ -109,7 +109,7 @@ shuffleList l = shuffle' l (length l) (mkStdGen seed)
-- Genereer een lijst met n verschillende kleuren. -- Genereer een lijst met n verschillende kleuren.
-- Hint: Je kan gebruikmaken van de generateColor-functie. -- Hint: Je kan gebruikmaken van de generateColor-functie.
generateColors :: Int -> [Color] generateColors :: Int -> [Color]
generateColors n = undefined generateColors n = map (generateColor . fromIntegral . (360 `div` n *)) [1..n]
-- Genereer een lijst van n kaarten (n/2 kleurenparen). -- Genereer een lijst van n kaarten (n/2 kleurenparen).
generateShuffledCards :: Int -> [Card] generateShuffledCards :: Int -> [Card]
@ -128,8 +128,7 @@ canMove coord direction = undefined
move :: Board -> Direction -> Board move :: Board -> Direction -> Board
move board direction = undefined move board direction = undefined
-- Verander de status van een kaart op een gegeven positie -- Verander de status van een kaart op een gegeven positie -- wanneer de posities overeenkomen.
-- wanneer de posities overeenkomen.
changeCard :: Coordinate -> CardStatus -> Card -> Card changeCard :: Coordinate -> CardStatus -> Card -> Card
changeCard c s card = undefined changeCard c s card = undefined