day 9: remove imports

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
This commit is contained in:
2023-12-17 17:33:49 +05:30
parent b8b6249707
commit b89219e387

View File

@@ -1,17 +1,13 @@
import Data.Either (rights)
import Data.Map qualified as M
import Data.Text qualified as T
import Data.Text.Read qualified as TR
import Lib (readFile', tRead)
import Text.Parsec
main :: IO ()
main = do
input <- map (map tRead . T.words) . T.lines <$> readFile' "day09.in"
putStr "Q1: "
print . sum $ map (sum . map last . extrap) input
putStr "Q2: "
print . sum $ map (sum . map last . extrap . reverse) input