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