day1

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
2022-12-02 05:33:17 +05:30
commit 5fe3ea5567
6 changed files with 2337 additions and 0 deletions
--- a/Day1/2.hs
+++ b/Day1/2.hs
@@ -0,0 +1,6 @@
+import Data.List (sortOn)
+import Data.Ord (Down (Down))
+import Lib (calories)
+
+main :: IO ()
+main = print . sum . take 3 . sortOn Down . calories =<< readFile "input"