natto1784/AoC2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

day 9: remove imports

Browse Source 
Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
This commit is contained in:
Amneesh Singh
2023-12-17 17:33:49 +05:30
parent b8b6249707
commit b89219e387
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
day09.hs
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 qualified as T
import Data.Text.Read qualified as TR
import Lib (readFile', tRead) import Lib (readFile', tRead)
import Text.Parsec
main :: IO () main :: IO ()
main = do main = do
input <- map (map tRead . T.words) . T.lines <$> readFile' "day09.in" input <- map (map tRead . T.words) . T.lines <$> readFile' "day09.in"
putStr "Q1: " putStr "Q1: "
print . sum $ map (sum . map last . extrap) input print . sum $ map (sum . map last . extrap) input
putStr "Q2: " putStr "Q2: "
print . sum $ map (sum . map last . extrap . reverse) input print . sum $ map (sum . map last . extrap . reverse) input