From 347d2f1fbce2d3927a32b3af818ab67943628568 Mon Sep 17 00:00:00 2001 From: Orangerot Date: Fri, 17 May 2024 15:41:55 +0200 Subject: AoC 2023 --- 2023/day02/Main.hs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 2023/day02/Main.hs (limited to '2023/day02/Main.hs') 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 + -- cgit v1.2.3