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

Formatting

Browse source
This commit is contained in:
Albert Stein 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