AoC/2020/day01/day01.hs

import Control.Arrow
import Control.Monad

main :: IO ()
main = do
  input <- map read . lines <$> readFile "input"
  print $ day1 2 input
  print $ day1 3 input

day1 :: Int -> [Int] -> Int
day1 =
  fmap (snd . head . filter ((== 2020) . fst) . map (sum &&& product)) .
  replicateM
day01: prettier solution 2020-12-01 09:13:22 +01:00			`import Control.Arrow`
			`import Control.Monad`

Day 01 I forgot all about Haskell 2020-12-01 06:26:32 +01:00			`main :: IO ()`
			`main = do`
day01: prettier solution 2020-12-01 09:13:22 +01:00			`input <- map read . lines <$> readFile "input"`
Day 1: more golf 2020-12-01 12:03:49 +01:00			`print $ day1 2 input`
			`print $ day1 3 input`
Day 01 I forgot all about Haskell 2020-12-01 06:26:32 +01:00
Day 1: more golf 2020-12-01 12:03:49 +01:00			`day1 :: Int -> [Int] -> Int`
			`day1 =`
			`fmap (snd . head . filter ((== 2020) . fst) . map (sum &&& product)) .`
			`replicateM`