solver_1 :: [Room] -> Int
solver_1 =
  filter isRealRoom
  |> fmap sector
  |> sum
solver_1 :: [Room] -> Int
solver_1 =
  filter isRealRoom
  |> fmap sector
  |> sum
solver_1 =
  filter isRealRoom
  |> fmap sector
  |> sum