1 files changed, 13 insertions, 0 deletions
diff --git a/2020/01a.hs b/2020/01a.hs
new file mode 100644
index 0000000..1c72ecc
--- /dev/null
+++ b/2020/01a.hs
@@ -0,0 +1,13 @@
+module Day1A where
+
+import System.Environment (getArgs)
+
+main :: IO ()
+main = do
+    args <- getArgs;
+    c <- readFile $ head args;
+    let ns = map read $ lines c;
+
+    print $ head [a * b | a <- ns, b <- ns, a + b == 2020];
+
+    return ();
+\ No newline at end of file