day 2

day2/app/Main.hs

@@ -0,0 +1,32 @@
+module Main (main) where
+
+import Data.List.Split
+import System.Environment
+
+main :: IO ()
+main = do
+    args <- getArgs
+    input <- readFile (args !! 0)
+    let ranges =  concat $ map parseRange $ splitOn "," input
+    let invalidNumbers = filter (not . isValid) ranges
+    print invalidNumbers 
+    print $ sum invalidNumbers 
+
+parseRange :: String -> [Int]
+parseRange rng = let s = splitOn "-" rng in
+    [read $ s !! 0..read $ s !! 1]
+
+isValid :: Int -> Bool
+isValid numb = let str = show numb in
+    not $ equalSplits 1 str
+    
+
+equalSplits :: Int -> String -> Bool
+equalSplits sp str = case sp > length str `div` 2 of
+    True -> False
+    False -> if allEqual (chunksOf sp str) then True else equalSplits (sp + 1) str
+
+allEqual :: [String] -> Bool
+allEqual [] = True
+allEqual [_] = True
+allEqual (x:x2:t) = if x == x2 then allEqual (x2:t) else False

day2/app/input1.txt

@@ -0,0 +1 @@
+16100064-16192119,2117697596-2117933551,1-21,9999936269-10000072423,1770-2452,389429-427594,46633-66991,877764826-877930156,880869-991984,18943-26512,7216-9427,825-1162,581490-647864,2736-3909,39327886-39455605,430759-454012,1178-1741,219779-244138,77641-97923,1975994465-1976192503,3486612-3602532,277-378,418-690,74704280-74781349,3915-5717,665312-740273,69386294-69487574,2176846-2268755,26-45,372340114-372408052,7996502103-7996658803,7762107-7787125,48-64,4432420-4462711,130854-178173,87-115,244511-360206,69-86

day2/app/test-input1.txt

@@ -0,0 +1 @@
+11-22,95-115,998-1012,1188511880-1188511890,222220-222224,1698522-1698528,446443-446449,38593856-38593862,565653-565659,824824821-824824827,2121212118-2121212124