From 78b8176f39bae40648a7c08643b28cbefa937fcd Mon Sep 17 00:00:00 2001
From: Neil Smith <NeilNjae@users.noreply.github.com>
Date: Fri, 2 Dec 2022 09:28:07 +0000
Subject: [PATCH] Tidying

---
 advent01/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/advent01/Main.hs b/advent01/Main.hs
index 5cf7d6a..5a45a1e 100644
--- a/advent01/Main.hs
+++ b/advent01/Main.hs
@@ -3,11 +3,12 @@
 import System.Environment
 import Data.List
 import Data.List.Split
+import Data.Ord
 
 main :: IO ()
 main = 
   do  dataFileName <- getDataFileName
-      numStrs <- readFile dataFileName -- "data/advent01.txt"
+      numStrs <- readFile dataFileName
       let calories = fmap (fmap (read @Int)) $ splitWhen null $ lines numStrs
       print $ part1 calories
       print $ part2 calories
@@ -26,5 +27,6 @@ part1 :: [[Int]] -> Int
 part1 = maximum . fmap sum
 
 part2 :: [[Int]] -> Int
-part2 = sum . take 3 . reverse . sort . fmap sum
+-- part2 = sum . take 3 . reverse . sort . fmap sum
+part2 = sum . take 3 . sortOn Down . fmap sum
 
-- 
2.34.1