mandlm/CIS194
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Implemented exercise 3: wordFitsTemplate

Browse Source
This commit is contained in:
mandlm 2016-10-15 16:04:27 +02:00
parent 7bdeaff608
commit a4206d103d
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Lecture 02/Scrabble/Scrabble.hs
View File

@ -10,9 +10,6 @@ formableBy [] _ = True
formableBy (x:xs) hand = let remainingHand = delete x hand in formableBy (x:xs) hand = let remainingHand = delete x hand in
elem x hand && formableBy xs remainingHand elem x hand && formableBy xs remainingHand
wordsFrom :: Hand -> [String]
wordsFrom hand = wordsFromList hand allWords
wordsFromList :: Hand -> [String] -> [String] wordsFromList :: Hand -> [String] -> [String]
wordsFromList hand [] = [] wordsFromList hand [] = []
wordsFromList hand (x:[]) wordsFromList hand (x:[])
@ -20,3 +17,26 @@ wordsFromList hand (x:[])
| otherwise = [] | otherwise = []
wordsFromList hand (x:xs) = wordsFromList hand [x] ++ wordsFromList hand xs wordsFromList hand (x:xs) = wordsFromList hand [x] ++ wordsFromList hand xs
wordsFrom :: Hand -> [String]
wordsFrom hand = wordsFromList hand allWords
type Template = String
wordMatchesTemplate :: String -> Template -> Bool
wordMatchesTemplate [] [] = True
wordMatchesTemplate (w:ws) (t:ts)
| t == '?' = wordMatchesTemplate ws ts
| otherwise = w == t && wordMatchesTemplate ws ts
wordMatchesTemplate _ _ = False
removeTemplateChars :: String -> Template -> String
removeTemplateChars word [] = word
removeTemplateChars word (t:ts)
| t == '?' = removeTemplateChars word ts
| otherwise = removeTemplateChars (delete t word) ts
wordFitsTemplate :: Template -> Hand -> String -> Bool
wordFitsTemplate template hand word = let matchWord = removeTemplateChars word template in
formableBy matchWord hand && wordMatchesTemplate word template