From b8a31b37a60f11d16d75ebbbd5d96858235493ff Mon Sep 17 00:00:00 2001
From: Gattix <gattix@cock.li>
Date: Sat, 9 Dec 2023 18:54:28 +0100
Subject: [PATCH] day09: switch to interact

needs more golfing
also interact is probably better anyway
---
 2023/day09/day09.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/2023/day09/day09.hs b/2023/day09/day09.hs
index ea8ff26..f918d90 100644
--- 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