day 9: remove imports
Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
This commit is contained in:
8
day09.hs
8
day09.hs
@@ -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
|
||||
|
||||
|
Reference in New Issue
Block a user