From: Neil Smith Date: Thu, 7 Dec 2023 10:56:55 +0000 (+0000) Subject: Tidying X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=583c9cf8e3ec1bce0bf568b977251b5bc0045b81;p=advent-of-code-23.git Tidying --- diff --git a/advent07/Main.hs b/advent07/Main.hs index 6d326a4..b839511 100644 --- a/advent07/Main.hs +++ b/advent07/Main.hs @@ -33,7 +33,7 @@ part1 hands = sum $ fmap score rankedHands rankedHands = zip [1..] sortedHands score (r, CHand _ _ bid) = r * bid -part2 hands = part1 $ fmap enJoker hands +part2 = part1 . fmap enJoker enJoker :: Hand -> Hand enJoker (Hand cards bid) = Hand jCards bid