AoC 2023HEADmain

1 files changed, 26 insertions, 0 deletions

diff --git a/2023/day02/Main.hs b/2023/day02/Main.hs
new file mode 100644
index 0000000..5b235d2
--- /dev/null
+++ b/2023/day02/Main.hs
@@ -0,0 +1,26 @@
+import Data.Char
+import Data.List
+
+type Parser a = String -> [(a, String)]
+
+char :: Parser Char
+char [] = []
+char (x:xs) = [(x, xs)]
+
+failure :: Parser a
+failure = (\a -> [])
+
+return :: Parser a
+return v inp = [(v, inp)]
+
+parse :: Parser a -> String -> [(a, String)]
+parse p inp = p inp
+
+main :: IO ()
+main = do
+  inputLines <- lines <$> getContents
+
+  -- let arePossible = filter isPossible lines
+
+  mapM_ putStrLn inputLines
+