Add 2015 day 12 part1

haskellAoC/src/Y2015/Day12.hs

@@ -0,0 +1,21 @@
+module Y2015.Day12 (y15day12) where
+
+import Data.Char
+
+-- getToNext :: Char -> String -> String
+-- getToNext _ [] = []
+-- getToNext c (x:xs)
+--   | x == c = []
+--   | otherwise = x:(getToNext c xs)
+
+getStructureSum :: String -> Int
+getStructureSum s = sum $ map read $ words $ map keepNum s
+  where keepNum '-' = '-'
+        keepNum c
+          | isDigit c = c
+          | otherwise = ' '
+
+y15day12 :: [String] -> (String, String)
+y15day12 (input:_) = (part1, part2)
+  where part1 = show $ getStructureSum input
+        part2 = show $ "WIP"