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