From 5fb072d2a43049c050356a54a3b6c5b22e77fcf5 Mon Sep 17 00:00:00 2001 From: Albert Stein Date: Mon, 17 Oct 2016 11:17:54 +0000 Subject: [PATCH] Formatting --- Lecture 02/Scrabble/Scrabble.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Lecture 02/Scrabble/Scrabble.hs b/Lecture 02/Scrabble/Scrabble.hs index 2451eb7..ceda2cd 100644 --- a/Lecture 02/Scrabble/Scrabble.hs +++ b/Lecture 02/Scrabble/Scrabble.hs @@ -54,9 +54,10 @@ scrabbleValueWord (x:xs) = scrabbleValue x + scrabbleValueWord xs bestScrabbleWordValueAcc :: [String] -> Int -> Int bestScrabbleWordValueAcc [] acc = acc -bestScrabbleWordValueAcc (x:xs) acc = let currentWordValue = scrabbleValueWord x in - let bestValue = max currentWordValue acc in - bestScrabbleWordValueAcc xs bestValue +bestScrabbleWordValueAcc (x:xs) acc = + let currentWordValue = scrabbleValueWord x in + let bestValue = max currentWordValue acc in + bestScrabbleWordValueAcc xs bestValue bestScrabbleWordValue :: [String] -> Int bestScrabbleWordValue words = bestScrabbleWordValueAcc words 0