R/18-2.R

In soniamitchell/adventofcode: My Advent of Code solutions

#' @rdname day11
#' @param dat dat
#' @export
#'
snailfish_maths2 <- function(dat) {
  n <- length(dat)
  combinations <- expand.grid(1:n, 1:n) |>
    dplyr::filter(Var1 != Var2)
  results <- c()

  for (i in seq_len(nrow(combinations))) {
    # cat("\r", i, "of", nrow(combinations))
    first <- combinations$Var1[i]
    second <- combinations$Var2[i]
    results[i] <- add_snailfish(dat[first], dat[second]) |>
      check_magnitude()
  }

  max(results)
}