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

Formatting

Browse Source
This commit is contained in:
mandlm 2016-10-17 11:17:54 +00:00
parent a84522a8ab
commit 5fb072d2a4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Lecture 02/Scrabble/Scrabble.hs
View File

@ -54,9 +54,10 @@ scrabbleValueWord (x:xs) = scrabbleValue x + scrabbleValueWord xs
bestScrabbleWordValueAcc :: [String] -> Int -> Int bestScrabbleWordValueAcc :: [String] -> Int -> Int
bestScrabbleWordValueAcc [] acc = acc bestScrabbleWordValueAcc [] acc = acc
bestScrabbleWordValueAcc (x:xs) acc = let currentWordValue = scrabbleValueWord x in bestScrabbleWordValueAcc (x:xs) acc =
let bestValue = max currentWordValue acc in let currentWordValue = scrabbleValueWord x in
bestScrabbleWordValueAcc xs bestValue let bestValue = max currentWordValue acc in
bestScrabbleWordValueAcc xs bestValue
bestScrabbleWordValue :: [String] -> Int bestScrabbleWordValue :: [String] -> Int
bestScrabbleWordValue words = bestScrabbleWordValueAcc words 0 bestScrabbleWordValue words = bestScrabbleWordValueAcc words 0