Advent_of_Code_2024_Solutions

AoC_2024_Day1.R

library(tidyverse)
input <- read_delim("input.txt", col_names = c("x", "y"), delim = "   ")


#### Part 1 ####
input_ordered <- bind_cols(
  x = input$x[order(input$x)],
  y = input$y[order(input$y)]) %>% 
  mutate(dist = abs(x-y))

sum(input_ordered$dist)



#### Part 2 ####
n_ymatches <- function(xval, y) {
  sum(y == xval)
}

input_x <- tibble(
  x = input_ordered$x
) %>% 
  mutate(n_ymatch = map_dbl(x, ~n_ymatches(.x, input_ordered$y)))

sum(input_x$x * input_x$n_ymatch)