initial commit, day 1

.gitignore

@@ -0,0 +1 @@
+input.txt

1/solution.hs

@@ -0,0 +1,39 @@
+import Data.List
+
+addFirst :: [[a]] -> a -> [[a]]
+addFirst [] x = [[x]]
+addFirst (y:ys) x = ([x] ++ y) : ys
+
+split :: [Char] -> [Char] -> [[Char]]
+split _ [] = []
+split delims (x:xs)
+  | elem x delims = [[]] ++ split delims xs
+  | otherwise     = addFirst (split delims xs) x
+
+
+to_tuple :: [a] -> (a, a)
+to_tuple (x:(y:ys)) = (x, y)
+
+from_tuple :: (a, a) -> [a]
+from_tuple (x, y) = [x, y]
+
+splitInput :: String -> [(Integer, Integer)]
+splitInput text = map (\x -> to_tuple $ map read x) $ map (filter (/="")) $ map (split [' ']) $ split ['\n'] text
+
+solve1 :: [(Integer, Integer)] -> Integer
+solve1 x = sum $ map (\(x, y) -> abs (x - y)) $ uncurry zip $ to_tuple $ map sort $ from_tuple $ unzip x
+
+solve2 :: [(Integer, Integer)] -> Integer
+solve2 x = sum $ (\(x, y) -> map (\z -> z * (count z y)) x) $ unzip x
+
+count :: Eq a => a -> [a] -> Integer
+count x y = toInteger $ length $ filter (==x) y
+
+main :: IO()
+main = do
+       fileinp <- readFile "input.txt"
+       let parsed = splitInput fileinp
+       let solved1 = solve1 parsed
+       let solved2 = solve2 parsed
+       print solved1
+       print solved2