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 = do
input <- map read . lines <$> readFile "input"
print $ day1 input 2
print $ day1 input 3
print $ day1 2 input
print $ day1 3 input
day1 :: [Int] -> Int -> Int
day1 input n =
snd . head . filter ((== 2020) . fst) $
map (sum &&& product) $ replicateM n input
day1 :: Int -> [Int] -> Int
day1 =
fmap (snd . head . filter ((== 2020) . fst) . map (sum &&& product)) .
replicateM