1 files changed, 13 insertions, 0 deletions
diff --git a/2020/01b.hs b/2020/01b.hs
new file mode 100644
index 0000000..17d6e02
--- /dev/null
+++ b/2020/01b.hs
@@ -0,0 +1,13 @@
+module Day1B 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 * c| a <- ns, b <- ns, c <- ns, a + b + c == 2020];
+
+    return ();
+\ No newline at end of file