inst/run-day11.R

In tjmahr/adventofcode18: What the Package Does (One Line, Title Case)

library(adventofcode18)
full_search <- FALSE

x <- readLines("./inst/input11.txt") %>%
  as.numeric()

m <- create_power_cell_matrix(300, x)
peak_corner <- pool_power_cells(m, 3)
p1 <- paste0(peak_corner$x, ",", peak_corner$y)


if (full_search) {
  results <- search_power_cell_pools(m)
} else {
  results <- search_power_cell_pools(m, 9:12)
}

best_row <- results[which.max(results$power), ]
p2 <- paste(best_row$x, best_row$y, best_row$span, sep = ",")

stopifnot(p1 == aoc18_solutions$day11a)
stopifnot(p2 == aoc18_solutions$day11b)