2022-01 in haskell
This commit is contained in:
parent
c5ac62dc9b
commit
2725c523ae
2 changed files with 26 additions and 0 deletions
13
2022/01/first.hs
Normal file
13
2022/01/first.hs
Normal 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
13
2022/01/second.hs
Normal 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
|
Loading…
Add table
Reference in a new issue