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)))