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

Exercise 7: scrabbleValueTemplate

Browse Source
This commit is contained in:
mandlm 2016-10-16 22:39:16 +02:00
parent a6012c32a1
commit 720c1194f4
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Lecture 02/Scrabble/Scrabble.hs
View File

@ -69,4 +69,26 @@ bestWords (x:xs)
where where
maxWordValue = bestScrabbleWordValue (x:xs) maxWordValue = bestScrabbleWordValue (x:xs)
type STemplate = String
scrabbleValueTemplateAcc :: Int -> Int -> STemplate -> String -> Int
scrabbleValueTemplateAcc sum mult [] [] = sum * mult
scrabbleValueTemplateAcc sum mult (t:ts) (w:ws)
| t == '?' = scrabbleValueTemplateAcc (sum + charValue) mult ts ws
| t == 'D' = scrabbleValueTemplateAcc (sum + (charValue * 2)) mult ts ws
| t == 'T' = scrabbleValueTemplateAcc (sum + (charValue * 3)) mult ts ws
| t == '2' = scrabbleValueTemplateAcc (sum + charValue) (mult * 2) ts ws
| t == '3' = scrabbleValueTemplateAcc (sum + charValue) (mult * 3) ts ws
| otherwise = scrabbleValueTemplateAcc (sum + charValue) mult ts ws
where charValue = scrabbleValue w
scrabbleValueTemplate :: STemplate -> String -> Int
scrabbleValueTemplate template word = scrabbleValueTemplateAcc 0 1 template word