From 2635d4b3f0db38e5399b0945f114c4775ea413fd Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Thu, 5 Dec 2019 12:00:37 +0100
Subject: Day 2 in Haskell with IntCode module

---
 2019/2.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 2019/2.hs

(limited to '2019/2.hs')

diff --git a/2019/2.hs b/2019/2.hs
new file mode 100644
index 0000000..51ecf12
--- /dev/null
+++ b/2019/2.hs
@@ -0,0 +1,16 @@
+module Main where
+
+import Control.Monad
+
+import Input
+import IntCode
+
+
+main :: IO ()
+main = do
+    initMem <- parse . head <$> getInput 2
+    let set12 a b mem = head mem : a : b : drop 3 mem
+        run' a b = fst (run (set12 a b initMem) []) !! 0
+    print (run' 12 2)
+    forM_ [0..99] $ \a -> forM_ [0..99] $ \b ->
+        when (run' a b == 19690720) $ print (100 * a + b)
-- 
cgit v1.2.3-70-g09d2