Garmelon/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[hs] Solve 2020_19 part 1

Browse source
This commit is contained in:
Joscha 2020-12-19 15:53:27 +00:00
parent 7db29cd79b
commit e8f3e01617
4 changed files with 79 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
hs/src/Aoc/Y2020/D18.hs
View file

@ -5,7 +5,6 @@ module Aoc.Y2020.D18
) where
import Control.Monad
import Data.Char
import Control.Monad.Combinators.Expr
import qualified Data.Text as T
@ -15,10 +14,10 @@ import Aoc.Day
import Aoc.Parse
lexeme :: Parser a -> Parser a
lexeme = L.lexeme (void $ lineWhile isSpace)
lexeme = L.lexeme (void lineSpace)
symbol :: T.Text -> Parser T.Text
symbol = L.symbol (void $ lineWhile isSpace)
symbol = L.symbol (void lineSpace)
parser :: [[Operator Parser Int]] -> Parser [Int]
parser table = manyLines expr