Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Day 1: more golf

This commit is contained in:
shu 2020-12-01 12:03:49 +01:00
parent 36ccd6f974
commit 779261f107
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2020/day01/day01.hs
View File

@ -4,10 +4,10 @@ import Control.Monad
main :: IO () main :: IO ()
main = do main = do
input <- map read . lines <$> readFile "input" input <- map read . lines <$> readFile "input"
print $ day1 input 2 print $ day1 2 input
print $ day1 input 3 print $ day1 3 input
day1 :: [Int] -> Int -> Int day1 :: Int -> [Int] -> Int
day1 input n = day1 =
snd . head . filter ((== 2020) . fst) $ fmap (snd . head . filter ((== 2020) . fst) . map (sum &&& product)) .
map (sum &&& product) $ replicateM n input replicateM