Day 7

day07/Part1.hs

@@ -0,0 +1,24 @@
+module Part1 where
+
+import Commons
+import Data.List (sort, sortOn)
+
+
+getHandValueTypeFromSorted :: [Int] -> Int
+getHandValueTypeFromSorted [a, b, c, d, e] | a == e                                           = 6
+                                           | a == d || b == e                                 = 5
+                                           | a == c && d == e || a == b && c == e             = 4
+                                           | a == c || b == d || c == e                       = 3
+                                           | a == b && (c == d || d == e) || b == c && d == e = 2
+                                           | a == b || b == c || c == d || d == e             = 1
+                                           | otherwise                                        = 0
+
+getHandValue :: Hand -> HandValue
+getHandValue hand = HandValue {hand = hand, value = 100 ^ 5 * (getHandValueTypeFromSorted . sort) (values hand)
+                                                    + getHandSecondValue (values hand)}
+
+sortHands :: [Hand] -> [Hand]
+sortHands = map hand . sortHandValues . map getHandValue
+
+getTotalWinnings :: [Hand] -> Int
+getTotalWinnings = getWinningsFromSorted 1 . sortHands