Skip to content

Instantly share code, notes, and snippets.

import Data.Maybe
import Data.List
import qualified Data.Set as S
import Data.Bifunctor
d01_read :: IO [Integer]
d01_read = fmap (read . (dropWhile (=='+'))) <$> lines <$> readFile "input"
d01_1 :: [Integer] -> Integer
d01_1 = sum
/* ==UserStyle==
@name gitlab.haskell.org logo shrink - 2019-01-06
@namespace github.com/openstyles/stylus
@version 1.0.0
@description Shrink haskell logo to make rightmost buttons appear
@author fgaz
==/UserStyle== */
@-moz-document domain("gitlab.haskell.org") {
#logo {