day09: switch to interact

needs more golfing also interact is probably better anyway
2023-12-09 18:54:28 +01:00 · 2023-12-09 18:54:28 +01:00 · b8a31b37a6
parent 0e134abdaa
commit b8a31b37a6
1 changed files with 1 additions and 3 deletions
--- a/2023/day09/day09.hs
+++ b/2023/day09/day09.hs
@ -1,9 +1,7 @@
 import Control.Arrow

 main :: IO ()
-main = do
-  input <- parse <$> readFile "input"
-  print $ (day09 &&& day09 . map reverse) input
+main = interact $ show . (day09 &&& day09 . map reverse) . parse

 parse :: String -> [[Int]]
 parse = map (map read . words) . lines