From 4a456c4e939942b81d2c4dd7744a1df0bdd85464 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Mon, 9 Dec 2019 19:56:26 +0100 Subject: Day 9 --- 2019/9.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 2019/9.hs (limited to '2019/9.hs') diff --git a/2019/9.hs b/2019/9.hs new file mode 100644 index 0000000..cd37f34 --- /dev/null +++ b/2019/9.hs @@ -0,0 +1,11 @@ +module Main where + +import Input +import IntCode + + +main :: IO () +main = do + prog <- parse . head <$> getInput 9 + print (head (snd (run prog [1]))) + print (head (snd (run prog [2]))) -- cgit v1.2.3-54-g00ecf