mandlm/CIS194
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Exercice 4: wordsFittingTemplate

Browse source
This commit is contained in:
Michael Mandl 2016-10-15 17:46:05 +02:00
parent a4206d103d
commit 9e4ebcd26d
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Lecture 02/Scrabble/Scrabble.hs
View file

@ -39,4 +39,16 @@ wordFitsTemplate :: Template -> Hand -> String -> Bool
wordFitsTemplate template hand word = let matchWord = removeTemplateChars word template in wordFitsTemplate template hand word = let matchWord = removeTemplateChars word template in
formableBy matchWord hand && wordMatchesTemplate word template formableBy matchWord hand && wordMatchesTemplate word template
wordsFromListFittingTemplate :: Template -> Hand -> [String] -> [String]
wordsFromListFittingTemplate _ _ [] = []
wordsFromListFittingTemplate template hand (x:xs)
| wordFitsTemplate template hand x = x : wordsFromListFittingTemplate template hand xs
| otherwise = wordsFromListFittingTemplate template hand xs
wordsFittingTemplate :: Template -> Hand -> [String]
wordsFittingTemplate template hand = wordsFromListFittingTemplate template hand allWords