25 lines
1.2 KiB
Haskell
25 lines
1.2 KiB
Haskell
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
|