numDamagedToPlace :: Record -> Int
numDamagedToPlace (Record springs signature) = totalDamaged - knownDamaged
where knownDamaged = length $ filter (== Damaged) springs
numDamagedToPlace :: Record -> Int
numDamagedToPlace (Record springs signature) = totalDamaged - knownDamaged
where knownDamaged = length $ filter (== Damaged) springs