15 lines
468 B
Haskell
15 lines
468 B
Haskell
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)))
|