Day 12 in the worst way possible

day12/Part2.hs

@@ -0,0 +1,14 @@
+module Part2 where
+
+import Commons
+
+
+combineSprings :: [Spring] -> [Spring]
+combineSprings springs = springs ++ (Unknown: springs) ++ (Unknown: springs) ++ (Unknown: springs)
+                                 ++ (Unknown: springs)
+
+combineGroups :: [Int] -> [Int]
+combineGroups groups = groups ++ groups ++ groups ++ groups ++ groups
+
+getAll :: [Row] -> [Int]
+getAll = map (\ row -> getNPossibleArrangements (combineGroups (groups row)) (combineSprings (springs row)))