2022-01 in haskell

This commit is contained in:
Julien Dessaux 2023-03-05 23:39:47 +01:00
parent c5ac62dc9b
commit 2725c523ae
Signed by: adyxax
GPG key ID: F92E51B86E07177E
2 changed files with 26 additions and 0 deletions

13
2022/01/first.hs Normal file
View file

@ -0,0 +1,13 @@
-- requires cabal install --lib split
module Main where
import Data.List (sort)
import Data.List.Split (splitOn)
parseAndSum :: String -> [Int]
parseAndSum = map (sum . map read . lines) . splitOn "\n\n"
main :: IO ()
main = do
input <- readFile "input"
print . head . reverse . sort $ parseAndSum input

13
2022/01/second.hs Normal file
View file

@ -0,0 +1,13 @@
-- requires cabal install --lib split
module Main where
import Data.List (sort)
import Data.List.Split (splitOn)
parseAndSum :: String -> [Int]
parseAndSum = map (sum . map read . lines) . splitOn "\n\n"
main :: IO ()
main = do
input <- readFile "input"
print . sum . (take 3) . reverse . sort $ parseAndSum input