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"

haskellAoC/src/Y2015/Days.hs

@@ -11,6 +11,8 @@ import Y2015.Day08
 import Y2015.Day09
 import Y2015.Day10
 import Y2015.Day11
+import Y2015.Day12
+
 
 year2015 :: String -> [String] -> (String, String)
 year2015 "01" = y15day01
@@ -24,3 +26,4 @@ year2015 "08" = y15day08
 year2015 "09" = y15day09
 year2015 "10" = y15day10
 year2015 "11" = y15day11
+year2015 "12" = y15day12